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Chi trova un amico 


di Riccardo Paolillo 

Scorrendo le pagine di una delle tante riviste spe¬ 
cializzate nella pubblicazione di annunci economici 
si scopre che i personal computer hanno conquistato 
addirittura una rubrica. La cosa è abbastanza logica 
dato il numero ormai elevato di piccoli calcolatori in 
circolazione. 

Leggendo le inserzioni pubblicate, accanto alle solite 
di interscambio e commercio di programmi, ce ne 
sono molte di persone che intendono disfarsi del 
proprio personal. Macchine con pochissimi mesi di 
vita, tuttora regolarmente commercializzate, vengo¬ 
no offerte a prezzi vantaggiosi da acquirenti delusi; 
c’è chi denuncia apertamente il proprio scarso inte¬ 
resse per il personal, chi dichiara di aver ricevuto un 
doppio regalo, ma ir. definitiva tutti non hanno tro¬ 
vato, nel proprio calcolatore, l’amico che cercavano. 
Questo fenomeno, pur nella sua parzialità, non va 
certo sottovalutato: è sicuramente uno dei segnali che 
permettono di affermare che il mercato di personal e 
home computer, nonostante la continua crescita, non 
è ancora completamente maturo. 

Gli operatori del settore, soprattutto chi ì calcola¬ 
tori li vende, sono stati obbligati a prendere nota di 
questa tendenza, dopo la valanga di richiestedei mesi 
scorsi e in un momento pur sempre favorevole. I 
personal, insomma, non basta venderli: occorre fare 
in modo che chi li acquista ne sia consapevolmente 
convinto. 

In caso contrario si rischia di innescare alla rovescia il 
meccanismo di autopubblicità che ha favorito tante 
vendite: chi decide di vendere il proprio personal, 
perché non sa come utilizzarlo, non costituisce certo 
un buon veicolo promozionale nei riguardi di poten¬ 
ziali acquirenti. 

Gli stessi produttori si sono da tempo posti queste 
problematiche e stanno ora presentando nuove pro¬ 
poste: finito il tempo in cui si badava esclusivamente 
alle prestazioni fini a se stesse delle macchine, ci si sta 
muovendo decisamente nell’area delle soluzioni inte¬ 
grate. 

L’idea è quella di creare un rapporto amichevole e il 
più umano possibile tra l’utilizzatore e la macchina. 
Ecco quindi nascare quei sistemi che gli americani 
chiamano user friendly. 

Accanto a macchine espressamente progettate in 
questa ottica, come il Macintosh della Apple, anche 
altre, di tipo tradizionale, vengono dotate di software 
potente ad uso immediato. 

Ci si è in pratica posti un naturale obiettivo: rendere 
semplici anche sul calcolatore quelle attività che per 


la mente umana sono di comprensione immediata. 
Perché, ad esempio, obbligare a scrivere lunghi pro¬ 
grammi in BASIC chi intende usare in modo grafico 
il proprio personal? È sicuramente più comodo e 
facile permettergli di fare quello che intuitivamente 
gli risulterebbe spontaneo: utilizzare una tavoletta 
grafica o un joystick e disegnare. 

Programmi di questo tipo sono ormai da tempo 
disponibili e sicuramente contribuiscono in modo 
rilevante a rendere più semplice l’utilizzo del calcola¬ 
tore e a ridurre i tempi di apprendimento. 
Adottando il software autoesplicante, ad utilizzo in¬ 
tuitivo al massimo, si è raggiunto anche lo scopo di 
ridurre notevolmente lo spessore dei manuali d’uso. I 
manuali molto ponderosi, anche se ben fatti, hanno 
generalmente un impatto iniziale piuttosto negativo 
con l’utilizzatore. 

Quando questa tendenza sarà generalizzata, il merca¬ 
to dell’informatica individuale acquisterà sicuramen¬ 
te quella credibilità che ora, in parte, gli manca. 
Non più personal computer come status Symbol, ma 
strumento amico al proprio servizio. E gli amici, si sa, 
non tradiscono (quasi) mai. ■ 



















OSTA 


Un lungo sfogo 

Ho uno sfogo da fare, non contro 
di Voi personalmente, ma generico, 
contro un sistema. Con chi farlo se 
non con il periodico che dell’argo- 
mento si occupa? Ecco perché ho 
scelto Voi come bersaglio. 

Prevedo che anche a voler essere 
conciso, per poter essere chiaro ne 
uscirà una lettera un po’ lunga; se 
non Vi sembrerà inutile provate ad 
arrivare fino in fondo. Grazie. 

Sono un insegnante elementare in 
pensione, radioamatore di quaran- 
t’anni, ammalatosi poi di “compu- 
terite”. Penso di non essere un caso 
isolato. 

Ho posseduto un VIC 20, ora un C 
64 ed uno Spectrum. E aspetto che 
arrivi in Italia il QL. 

Compro e leggo numerose riviste e 
se mi perdonate l’immodestia penso 
di non essere uno sprovveduto, ho 
perso un po’ il ritmo in fatto di ag¬ 
giornamento, questo è vero, ma san¬ 
to Cielo, le cose cambiano da un 
mese all’altro!; la memoria mi fa un 
po’ cilecca, anche questo è vero, non 
ho più vent’anni e posseggo una spe¬ 
cie di deformazione professionale: 
la didattica. Ma è una deformazione 
professionale? Sono davvero in er¬ 
rore se credo che per insegnare a fare 
una cosa sia indispensabile spiegarla 
e “far vedere” come si fa? 

Macchine come il C 64 vengono 
reclamizzate in maniera attraentissi¬ 
ma. Il C 64 dispone, oltre al manua- 
letto in dotazione alla macchina, di 
un ponderoso librone chiamato 
Guida dì riferimento per il program¬ 
matore. E scritto in italiano, ma se 
alcune parti di esso fossero scritte in 
sanscrito la cosa non cambierebbe 
gran ché. C’è tutto ma non è didatti¬ 
camente valido. Chi si illude, allor¬ 
ché viene in possesso di quel librone, 
di riuscire finalmente a capire ciò 
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che non ha ancora capito, proverà 
grande amarezza in seguito. 

Del BASIC mi sonoda tempo impa¬ 
dronito direi quasi alla perfezione, 
tanto che i programmi li faccio da 
me senza problemi, e da scambi di 
idee con altri mi sono accorto che 
ciò accade a molti. Ma si sa che se si 
vogliono ottenere certi risultati è 
quasi indispensabile ricorrere al lin¬ 
guaggio macchina. E qui casca l’asi¬ 
no. 

Le istruzioni che accompagnano i 
programmi assemblatori guidano a 
piccolissime routine in linguaggio 
macchina e a salvarle e anche a rica¬ 
ricarle, ma nessuna dice come si fa a 
legare un programma BASIC ad 
uno in linguaggio macchina. Io ho 
cercato di fare da me, ma senza ri¬ 
sultato. 

Sono impazzito a cercare su riviste e 
manuali una istruzione completa, 
ma non sono riuscito a trovarla. 

E colpa mia che, pur sapendo legge¬ 
re, non so dove e cosa leggere o è 
colpa della didattica carente in rivi¬ 
ste e manuali che istituiscono solo 
fino a metà e poi abbandonano il 
povero neofita in mezzo alla strada. 
Io non amo i video game, preferisco 
di gran lunga i programmi di utilità, 
tipo data base, word processor, trat¬ 
tamento dei file, calcoli astronomici 
ecc., ma devo ammettere che certi 
giochi sono affascinanti. Disappro¬ 
vo che si spenda il tempo nel tentati¬ 
vo di cannoneggiare aerei e navi che 
sfilano sullo schermo, ma devo am¬ 
mettere che muoio dalla voglia di 
sapere come sono fatti quei giochi. 
I Didattici della materia dovrebbero 
tenere conto che ciò che per essi è 
ovvio non lo è affatto per il neofita e 
se questo vale per tutte le materie di 
insegnamento, ancor più vale per 
questa materia dove l’uso improprio 
di una innocente virgola manda in 
coma irreversibile tutta la baracca. 


quand’anche non distrugga ore di 
lavoro paziente ed appassionato, 
per cui non resta altro da fare che 
spegnere, piangere un po’ e ricomin¬ 
ciare tutto daccapo. 

Non parliamo poi dei programmi 
che appaiono sulle riviste, compresa 
la Vostra, in cui il linguaggio mac¬ 
china è mascherato nel procedimen¬ 
to “READ ... DATA”. Cosa dice 
tutta quella sequela di numeri?, cosa 
insegna?, come si controlla un even¬ 
tuale errore se nessuno dice come si 
è ottenuta la serie dei DATA? Mi 
riferisco ad esempio al programma 
Tool Kit di Vostra edizione a cura di 
Alessandro Guida. Ebbene non gi¬ 
ra, o meglio gira solo in parte. 
Cosa deve pensare chi compra la 
rivista, si entusiasma per un pro¬ 
gramma interessante e poi resta con 
un palmo di naso? 

Mi direte che prendo le cose un po’ 
troppo sul tragicoedopo tutto non è 
che un hobby; beh!anche andare a 
pescare è un hobby, però se uno tor¬ 
na a casa senza nemmeno una sardi¬ 
na ci resta male lo stesso. 

Non volete essere d’accordo con me 
che c'è qualcosa che non va in tutta 
questa faccenda? Case produttrici di 
macchine potenzialmente potenti, 
reclamizzate a gran voce come tali, 
ma di cui forniscono scarne o inser¬ 
vibili istruzioni, riviste (ormai fin 
troppo numerose) che promettono 
mari e monti, ma pubblicano troppo 
spesso programmi che non girano (a 
parte però vien detto che è in vendita 
la cassetta o il disco). 

Sono cose che non mi vanno giù. 
Come si può compilare manuali d’u¬ 
so contenenti grossolani errori pro¬ 
prio nei listati che dovrebbero segui¬ 
re di guida all’uso della macchina? 
Nei manuali Commodore ne ho tro¬ 
vati numerosi, specialmente nella 
punteggiatura. E delle riviste ho già 
detto abbastanza. 








OSTA 





Per finire: la Sinclair. Ha presentato 
il QL. Ebbene cosa l’ha presentato a 
fare con tanto anticipo sulla produ¬ 
zione? Ho telefonato direttamente 
alla Sinclair e molto cortesemente 
mi hanno risposto che potrei averlo, 
solo che non potendo essi fare spie¬ 
gazioni a privati dovrei servirmi di 
un amico che risieda in Inghilterra. 
Io non ce l’ho, ma ho un amico che 
ha un amico il quale risiede a Lon¬ 
dra e l’ha ordinato e pagato in anti¬ 
cipo e che finora l’ha visto solo in 
fotografia. Io capisco la pubblicità, 
ma quando serve a promuovere la 
vendita di un prodotto che è lì che 
attende compratori, non per un pro¬ 
dotto che non c’è. Ora c’è una marea 
di gente che fa la bava per il QL,che 
arriverà chissà quando. 

Non c’è serietà nemmeno nella 
produzione di hardware di maggior 
prezzo. Ho comperato una stam¬ 
pante Mannesmann Tally (80 carat¬ 
teri o 142 compressi, bidirezionale, 
trattore e frizione ecc., ecc.) che co¬ 
sta con l’I VA oltre un milione, ebbe¬ 
ne dopo alcune ore di funzionamen¬ 
to ha cominciato a dare i numeri ed 
ora è già in revisione. 

Non vi chiedo di spender tempo per 
una risposta, sebbene gradirei cono¬ 
scere la Vostra opinione in due righe 
sulla Vostra rivista. 

Anche un’idea circa il Tool Kit mi 
farebbe piacere. 

Franco Braga 
Treviglio (BG) 


Data la lunghezza della sua lettera, 
abbiamo operaio qualche piccolo ta¬ 
glio, senza però cambiare il senso dei 
concetti esposti. In questo modo la 
nostra risposta può essere un po’ più 
articolata. 


Innanzitutto la ringraziamo per aver 
affrontato in modo esauriente e bril¬ 
lante una serie di argomenti che ci 
stanno particolarmente a cuore e rite¬ 
niamo possano interessare un gran 
numero di lettori. 

Cominciamo subito a parlare della 
parte della sua lettera che riguarda 
direttamente Personal Software. Le 
critiche, da lei esposte, sono state 
principalmente due: i programmi 
pubblicati a volte non funzionano (in 
particolare il Tool Kit per C 64) e 
inoltre, a suo parere, mancano appro¬ 
fondimenti di tipo didattico. 

Per quanto riguarda il primo proble¬ 
ma, non le nascondiamo che esiste e 
ogni mese uno degli sforzi maggiori 
che facciamo è proprio quello di pro¬ 
vare accuratamente i programmi 
pubblicati. 

Per ridurre al minimo la possibilità 
di errori, pubblichiamo sempre le fo¬ 
tografie dei listati prodotti dalle 
stampanti collegale ai vari calcolato¬ 
ri anziché il programma fotocompo¬ 
sto (che sarebbe più leggibile, ma 
molto più soggetto a errori di battitu¬ 
ra). Nonostante tutto, ogni tanto 
scappa qualche errore. 

Questo perché non tutti gli errori so¬ 
no uguali e facilmente riscontrabili: 
esistono, ad esempio, degli errori che 
si verificano solo in certe particolari 
situazioni. Si può far girare un pro¬ 
gramma 99 volte senza problemi, e 
solo alla centesima risconlrarè, in 
modo assolutamente casuale, un ba¬ 
co. 

Esistono altri errori dovuti al fatto 
che i calcolatori stessi non sono im¬ 
muni da imperfezioni. Ci sono poi er¬ 
rori materiali, chiamiamoli tipografi¬ 
ci, comuni a qualunque rivista. Nei 
caso del Tool Kit. ad esempio, foto¬ 
grafando il listato è stala erronea¬ 
mente lasciata fuori una linea. Sono 
cose che capitano: se fosse successo 
con una riga di testo, la conseguenza 


sarebbe stata, al più, una frase incom¬ 
prensibile. Per il listato, l'effetto è 
stato di renderlo completamente in¬ 
utilizzabile. 

Di tutti questi inconvenienti, che be¬ 
ninteso cerchiamo di limitare al mas¬ 
simo, ci scusiamo con i nostri lettori: 
in ogni caso pubblichiamo l'errata 
corrige al più presto (nel caso del Tool 
Kit nel numero successivo) e abbiamo 
previsto la rubrica Debug proprio per 
questo motivo. 

Passiamo ora al secondo appunto 
che ci riguarda direttamente: sotto 
questo aspetto riteniamo di avere del¬ 
le colpe, ma anche dei meriti. Molti 
articoli pubblicati hanno, secondo 
noi, un indubbio valore didattico. Ri¬ 
manendo, per esempio, al Tool Kit già 
citato, ci sembra giusto ricordare che 
nel numero di Personal Software suc¬ 
cessivo alla presentazione del pro¬ 
gramma (n. 14 Gennaio ’84), abbia¬ 
mo pubblicato un lungo articolo con¬ 
tenente tra l'altro il disassemblato 
completo e commentato con valore 
esclusivamente didattico. Potremmo 
continuare elencando molti altri arti¬ 
coli, come ad esempio la serie tuttora 
in corso dedicata alla programmazio¬ 
ne in linguaggio macchina del VIC 20 
e del C 64, ma non ci sembra questo il 
punto. La didattica è importantissima 
e la terremo sempre come obiettivo 
principale: a volte, però, occorre fare 
i conti con altri appassionati che ri¬ 
chiedono programmi sempre più sofi¬ 
sticati e soddisfacenti a fronte dei lun¬ 
ghi sforzi di ricopiatura fatti. Per al¬ 
cuni di questi programmi, un’analisi 
molto dettagliata richiederebbe, oltre 
ad un notevole spazio sulla rivista, 
anche la trattazione preliminare di 
parecchi argomenti propedeutici e 
fondamentali alla comprensione de! 
listato. Occorre notare che la mag¬ 
gior parte di questi argomenti di tipo 
generale sono abbondantemente trat¬ 
tati negli ormai numerosissimi libri in 
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lingua italiana. Anche noi, comunque, 
cerchiamo di dare il nostro contribu¬ 
to: la rubrica 1 segreti dei Personal, 
ad esempio, presenta ogni mese degli 
articoli validi sia da! punto di vista 
pratico, che sotto il profilo didattico. 
Veniamo infine, al resto della sua let¬ 
tera. Per quanto riguarda la Guida di 
riferimento de! C 64, è vero che pur¬ 
troppo c’è qualche errore. Occorre 
comunque sottolineare che si tratta di 
un manuale tecnico (e quindi con sco¬ 
pi solo parzialmente didattici) e che il 
fatto che sia stato tradotto in italiano 
è già di per sé un buon passo in avanti 
verso una politica divulgativa di mas¬ 
sa. 

Im stampante Mannesmann ci risulta 
essere sicuramente affidabile e racco¬ 
mandabile: evidentemente lei è stato 
particolarmente sfortunato, ma non 
ci sembra neanche giusto generaliz¬ 
zare un caso singolo. 

Per quanto riguarda il QL e la sua 
indisponibilità, siamo pienamente 
d’accordo con lei. Si tratta di una 
politica commerciale che non riuscia¬ 
mo a capire e d’altra parte non ci 
risulta che questa situazione possa 
sbloccarsi in tempi brevi. 


Potenziare il C 64 

Chiarisco che sono un Vostro ab¬ 
bonato e utente entusiasta di un 
Commodore 64 da alcuni mesi. 
Dopo aver esplorato approfondita¬ 
mente le capacità grafiche del Com¬ 
modore 64 avrei deciso di ampliare e 
facilitare la programmazione grafi¬ 
ca del suddetto home (evitando 
macchinose routine) e aggiungere 
comandi e istruzioni con il Simon'S 
BASIC. 

Ora vorrei avere se possibile da Voi 
chiarimenti sui nuovi comandi che si 
possono ottenere, e sulle facilitazio¬ 
ni in fase di programmazione, in 
campo grafico e non di questo BA¬ 
SIC aggiuntivo. 


Oltretutto se possibile dato che 
non ho conoscenza alcuna in merito 
vorrei notizie sull’installazione sul 
Commodore 64 di una tavoletta gra¬ 
fica o di una penna ottica, con chiari¬ 
menti sui costi e sui vantaggi che 
potrei trarre da una delle due scelte 
o da tutte e due. 


Rosignoli Bruno 
Torgiano (PG) 


// Simon’s BASIC, distribuito dal¬ 
la stessa Commodore consiste di ottre 
100 nuove istruzioni integrative del 
normale linguaggio del C 64. Fra tut¬ 
te le nuove istruzioni, le più interes¬ 
santi sono sicuramente quelle che per¬ 
mettono di sfruttare in modo semplice 
le notevoli capacità grafiche e sonore 
del Commodore. 

Come noto, il BASIC standard, ri¬ 
chiede l’utilizzo di complicate istru¬ 
zioni POKE per visualizzare grafici o 
far suonare il calcolatore: il Simon’s 
BASIC rende disponibili semplici 
istruzioni per generare suoni e per 
tracciare linee, circonferenze e molte 
altre elementari figure geometriche. 
Sono inoltre stati inseriti dei comandi 
per strutturare meglio i programmi 
(1F ... THEN ... ELSE). 

Si tratta dunque di una utility vera¬ 
mente preziosa, per quanti intendano 
sviluppare programmi anche com¬ 
plessi sul proprio Commodore 64. As¬ 
sieme alla cartuccia viene fornito un 
esauriente manuale d'uso (in inglese). 

Per quanto riguarda la seconda ri¬ 
chiesta. le segnaliamo la tavoletta 
grafica Koala distribuita dalla Te/av 
di Milano. 

Dotata di un ottimo software, questo 
economico strumento consente di cre¬ 
are e memorizzare in modo semplice 
qualunque tipo di grafico: gli effetti 
che si ottengono sono veramente no¬ 
tevoli. E richiesto l’uso di una unità a 
disco. 


8 














firmati JACKSON 


Lon Poole 

75 PROGRAMMI 
IN BASIC 

per il vostro computer 

Programmi sperimentati 
e pronti da usare 
oppure da rielaborare, 
ampliare, modificare, 
assemblare. 

Ad esempio: calcolo 
degli investimenti, 
calcolo dei ratei e degli 
interessi, tabelle di 
ammortamenti, massimo 
comune denominatore, 
fattori primi di numeri 
interi, area di un 
poligono ... 196 pagine. 
Codice 551 D L. 12.000 


Lon Poole 

PROGRAMMI 
PRATICI IN BASIC 

Ideato alla scopo di 
ridurre e semplificare 
il tempo di 

programmazione, il libro 
raccoglie programmi di 
tipo finanziario, 
matematico, scientifico e 
di decisioni manageriali. 
Ogni programma, 
eminentemente pratico, 
è presentato con una 
breve introduzione, un 
campione di esecuzione, 
il listing BASIC. 

192 pagine. 

Codice 550 D L. 12.500 
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Osborne - Donahue 
PET/CBM 
Guida all’uso 

La versione italiana del 
famosissimo "PET/CBM 
Personal Computer 
Guide", il manuale 
americano che 
compendia tutto quanto 
è necessario sapere sui 
calcolatori CBM: come 
programmarli in BASIC, 
come installarli, come 
curarne la manutenzione, 
come procedere alla 
memorizzazione dei 
programmi su cassetta o 
su dischetto ... 

Voi. I 256 pagine. 

Codice 332 P L. 20.000 

Voi. Il 288 pagine. 
Codice 333 P L. 22.500 


Paolo e Carlo Pascolo 
IL BASIC DEL PET 
E DELLM20 

Un volume schematico e 
rigoroso, semplice e 
completo, che 
compendia tutto quello 
che bisogna sapere per 
“lavorare" in BASIC con 
un Commodore o con 
l'M 20 Olivetti, due dei 
Personal Computer più 
diffusi. L’opera 
comprende 
numerosissimi esempi 
ed esercizi. 226 pagine. 
Codice 336 D L. 16.000 
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ERSONAL NEWS 



Novità software in casa 
Commodore 


Sulla scia del successo commerciale 
del Commodore 64, la casa costrut¬ 
trice comincia a rendere disponibili 
e a distribuire programmi applicati¬ 
vi semplici ed economici, rivolti agli 
utenti più smaliziati, desiderosi di 
cimentarsi con fogli elettronici e ge¬ 
stione di testi per avvicinarsi all’uso 
professionale dello strumento. Il 
primo passo può essere rappresen¬ 
tato da Magic Desk I, programma 
per scrivere, archiviare e modificare 
testi non troppo complessi. Distri¬ 
buito sotto forma di cartuccia da 
inserire sul retro del C 64, il pro¬ 
gramma consente di scegliere fra le 
diverse opzioni presentate su video 
mediante l’uso del joystick. Non ap¬ 
pena accesa la macchina, fornita 



della cartuccia “Magic Desk“, sul 
video compare l’immagine di un uf¬ 
ficio occupato da una scrivania do¬ 
tata di macchina per scrivere regola¬ 
mentare, da una cassettiera, un oro¬ 
logio digitale e un cestino per la car¬ 
ta straccia. Sullo sfondo si staglia un 
ditone colorato che, manovrato dal 
joystick, permette di scegliere la 


funzione voluta: raggiunto l’oggetto 
si preme il pulsante di sparo per uti¬ 
lizzarlo. I testi creati (scegliendo la 
macchina per scrivere) e archiviati 
(inserendoli in uno dei trenta conte¬ 



nitori della “cassettiera 11 ) possono 
essere stampati a richiesta in ogni 
momento. Magic Desk I Commo¬ 
dore è in vendita a 75.000 lire, IVA 
esclusa, e richiede il floppy disk dri¬ 
ve per la memorizzazione dei testi 
preparati. 

Cale Result è invece il foglio elettro¬ 
nico che la Commodore distribuisce 
per il C 64. A somiglianza di altri 
strumenti del genere, Cale Result la¬ 
vora su una matrice di 63 colonne e 
254 righe, con la possibilità di inseri¬ 
re in ciascuna posizione dati nume¬ 
rici, commenti, intestazioni o for¬ 
mule di calcolo per derivare un dato 
da valori presenti in altre caselle. E’ 
possibile ricalcolare automatica- 
mente tutte le caselle della tabella al 
variare anche di un solo valore nu¬ 
merico. Ciò consente di realizzare 
rapidamente proiezioni e stime di 
eventi variabili. Anche Cale Result è 
distribuito in cartuccia e prevede 
l’uso di un floppy disk per le proce¬ 
dure ausiliarie e i file definiti dall’u- 
tilizzatore. Tra le caratteristiche in¬ 
teressanti possiamo ricordare la 
possibilità di avere il video diviso in 
due finestre per scandire diverse 
porzioni del foglio di lavoro e la 


capacità di ottenere una rappresen¬ 
tazione grafica dei dati registrati 
sotto forma di istogrammi, trasferi¬ 
bili anche in stampa. Cale Result 
viene venduto a 125.000 lire più 
IVA. 

Commodore Italiana S.p.A. 

Via Fratelli Gracchi, 48 
20092 Cinisello Balsamo (MI) 

Tel. 02-6125651 


Spectrum in Tandem 


Dovrebbe essere disponibile a gior¬ 
ni il Tandem, una interessante pro¬ 
posta della genovese Micro Byte che 
offre per circa 200.000 lire un ali¬ 
mentatore/registratore integrato 
per lo Spectrum, consentendo così 
di eliminare parecchi cavi e connet¬ 
tori. Questo prodotto italiano è sta¬ 
to appositamente concepito per eli¬ 
minare alcune scomodità che si ri¬ 
scontrano lavorando con lo Spec¬ 
trum. L’uso di un registratore a cas¬ 
sette dedicato e alcune connessioni 



realizzate direttamente sul Tandem 
permettono di evitare alcune mano¬ 
vre altrimenti necessarie, come il 
gioco di va e vieni del collegamento 
EAR per la registrazione e la verifi¬ 
ca o il caricamento. L’apparecchio 
si presenta bene, e mantiene lo Spec- 
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trum inclinato correttamente. Il 
Tandem è in ABS nero antiurto e 
comprende, in 47,5 per 16 per 9 cm, 
un altoparlante, un alimentatore 
stabilizzato a 10,2 Volt indipenden¬ 
te dagli altri circuiti, una piastra di 
registrazione dedicata e una garan¬ 
zia per 6 mesi. 

Micro Byte International 
Via Maculano, 6 
16135 Genova 
Tel. 010-210619 


Da Hong Kong 
COMX 35 sbarca a Trieste 


Il Centro Italiano Diffusione Com¬ 
puter comunica l’avvenuto accordo 
per l’importazione e la distribuzione 
di un home computer prodotto ad 
Hong Kong. Il COMX 35 ha una 
CPU 1802A, una RAM da 35 Kbyte, 
32 dei quali utilizzabili dall’utente, 
una tastiera QWERTY con 55 tasti 


24 righe da 40 colonne o, in alta 
risoluzione, da 240 per 216 punti. Il 
BASIC è semi-compilato, esiste un 
editor di sistema e il FORTH, così 
come Pascal, Logo, Assembly e 
word processing, sono opzionali, 
quindi da acquistarsi a parte. Il ge¬ 
neratore di suoni copre otto ottave e 
16 livelli di volume, mentre i colori 
previsti sono 8. Il prezzo di vendita è 
di 423.000 lire più IVA. Sono dispo¬ 
nibili cassette con programmi edu¬ 
cativi, giochi e piccole applicazioni. 
Il distributore fissa il prezzo di ogni 
nastro con 4-5 programmi in 18.000 
lire, IVA esclusa. Sono disponibili 
anche una stampante a 40 colonne, 
un’interfaccia parallela e seriale, 
un’espansione da 32 Kbyte oltre a 
un disk drive da 3 pollici. 

Centro Italiano Diffusione Computer 
S.a.s. 

Via S. Francesco, 4 
34133 Trieste 
Tel. 040-764357 


reale portatilità raggiunta grazie ad 
una tecnologia CMOS che permette 
di utilizzarli per una dozzina di ore 
filate prima che si esauriscano le 
quattro pile da 1,5 volt, o lo scher¬ 
mo LCD capace di 8 righe da 40 
caratteri. Il TRS 80 mod. 100 per¬ 
mette di memorizzare su una RAM 
mantenuta in vita per giorni da un 
alimentatore interno, una ventina di 
cartelle per scaricarle poi su una 




ben curata anche se prevede le sole 
maiuscole, un joystick incorporato 
sul lato destro del piano principale 
per giocare e per essere utilizzato 
come controllo del cursore. Ha l’in¬ 
terfaccia video per uno schermo da 


TRS 80 mod. 100: 
dove l’ho già visto 


La foto che vi presenta il “segretario 
ideale" distribuito dalla Tandy Ra¬ 
dio Shack, in italia dalla Infopass, 
avrà per molti il sapore di qualcosa 
di dejà vu. In effetti l’oggetto in que¬ 
stione è il gemello dell’olivettiano 
M10, da cui si differenzia per la dis¬ 
posizione delle interfacce e dei con¬ 
nettori esterni, presenti sul retro del¬ 
l’apparecchio, nonché per il disegno 
delle schede (che comunque non si 
vedono!). Escono infatti entrambi 
dalla stessa fabbrica giapponese e 
condividono alcuni pregi, come la 


qualsiasi stampante. Di serie offre 
un sistema di telecomunicazione per 
il collegamento via accoppiatore 
acustico con altri elaboratori, una 
versione abbastanza estesa dell’in¬ 
terprete BASIC della Microsoft, un 
wordprocessor e un applicativo per 
la gestione di una rubrica di indiriz¬ 
zi, il tutto naturalmente su ROM. Il 
marchio Tandy, terza azienda negli 
USA per il fatturato personal nel 
1983, è una garanzia ulteriore per 
una macchina che non è solo un 
gadget per manager sfiziosi. 

Infopass S.r.l. 

Piazza S. Maria Beltrade, 8 
20100 Milano 
Tel. 02-803130 
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Un appassionante 
gioco di strategia 
per il vostro CBM 

di Umberto Giovanni Barzaghi 


P er ragioni di spazio, abbia¬ 
mo preferito pubblicare il 
programma di questo me¬ 
se in due puntate. Sul numero di 
Personal Software che state leggen¬ 
do, viene illustrato il programma 
per quanto riguarda opzioni e pre¬ 
stazioni fornite; sul prossimo nume¬ 
ro, insieme al listato del program¬ 
ma, compariranno i REMarks allo 
stesso e alcuni rapidi cenni sul for¬ 
mato dei dati su cui la simulazione si 
basa e come modificarli per ottenere 
nuovi programmi. 


Rally!, l’ennesimo programma 
di simulazione di risultati sportivi? 

Alcuni dei più fedeli lettori di Per¬ 
sonal Software prima di diventarlo 
sono, presumibilmente, stati un 
tempo - e, forse, lo sono tuttora - 
fedeli lettori di Bit. Costoro si ricor¬ 
deranno, probabilmente, alcuni dei 
programmi di previsione e simula¬ 
zione di risultati sportivi realizzati 
dal sottoscritto per calcolatori della 
linea CBM-Commodore e pubblica¬ 
ti dal Gruppo Editoriale Jackson: 
quali La 24 ore di Le Mans, Formula 
1 e Gran Prix o, in altri ambiti spor¬ 
tivi, Il campionato di calcio di Serie A 
e B o All thal basket. Rally, si inseri¬ 
sce nella linea dei primi; mi sono 
infatti accorto, dopo aver simulato 
le grandi gare di endurance ed i gran 
premi di formula uno, di non aver 
mai toccato uno degli argomenti più 


— Parte prima — 


appassionanti, tecnicamente più ric¬ 
chi di significato ed in più rapida 
espansione dello sport automobili¬ 
stico: le grandi gare su strada. 

Nessuno di voi ha mai provato il 
desiderio di sostituirsi a Cesare Fio¬ 
rio della Lancia, Roland Gumpert 
dell’Audi o Jean Todt della Peugeot 
nel ruolo di direttore sportivo di una 
squadra rally? Decidere che tattica 
usare sulle strade tortuose del Rally 
di Montecarlo o sulle nevi dello 
Swedish Rally, quale, tra i piloti del 
vostro team mandare all’attacco, ri¬ 
schiando anche l’uscita di strada o la 
rottura meccanica pur di rimanere 
davanti a tutti ed a chi imporre una 
corsa di conserva per portare punti 
al team in ogni evenienza. Ma non 
solo queste sono le decisioni che vi si 
chiede di prendere. Un buon diretto¬ 
re sportivo, di comune accordo con 
piloti e navigatori (cui, di norma, 
spetta la decisione ultima), utiliz¬ 
zando i rapporti dei ricognitori del 
team che danno le ultime notizie 
raccolte direttamente sulla prova 
speciale per quanto riguarda condi¬ 


zioni metereologiche e stato del fon¬ 
do, deve anche decidere quale tipo 
di pneumatici utilizzare, scegliendo¬ 
li fra quelli a disposizione per i vari 
terreni (asfalto o sterrato) e di stato 
del fondo stradale e in modo che si 
adattino alla distribuzione dei pesi 
ed al tipo di trazione della propria 
vettura. Altro aspetto fondamentale 
dell’attività di direttore sportivo di 
un rally team, e forse meno piacevo¬ 
le, riguarda le decisioni da prendere 
quando insorgono problemi mecca¬ 
nici che, pur senza costringere la vet¬ 
tura al ritiro, ne rallentano la veloci¬ 
tà limitandone le prestazioni, e che 
possono essere riparati nell’interval¬ 
lo tra una prova speciale e l’altra a 
patto, però, di scontare un certo ri¬ 
tardo al controllo orario. E infatti 
fondamentale decidere se convenga 
costringere un pilota lanciato in ri¬ 
monta allo stop per mettere riparo 
ai danni subiti, accumulando ulte¬ 
riore ritardo, o lasciarlo continuare, 
pur menomato nelle sue possibilità 
velocistiche. E nel caso di un pilota 
in testa al rally? E più conveniente 
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proseguire sperando che l’entità dei 
danni non sia tale da rallentare la 
velocità della vettura tanto da per¬ 
mettere agli inseguitori di raggiun¬ 
gerlo, o riparare il guasto, consen¬ 
tendo agli inseguitori di farsi sotto e 
riprendere coraggio o addirittura 
superare la propria vettura, ma ri¬ 
pristinandone la piena efficienza? 

Come potete immaginare, un pro¬ 
gramma di questa complessità ri¬ 
chiede una mole di dati non indiffe¬ 
rente. La versione di base, che verrà 
presentata sul prossimo numero, è 
stata sviluppata con i dati del 52° 
Rally di Montecarlo svoltosi nel 
gennaio di quest’anno e conclusosi 
con il successo delle Audi “Quat¬ 
tro” a trazione integrale e di Walter 
Ròhrl, al debutto sulle vetture di In- 
golstadt. 

I tifosi delle Lancia 037 non si preoc¬ 
cupino: una delle opzioni che il pro¬ 
gramma offre, permette di simulare 
lo svolgimento del rally, utilizzando 
le stesse prove speciali della vera ga¬ 
ra, ed anche i veri avversari, ma con 
diverse condizioni atmosferiche. Per 
ogni prova speciale, infatti, il calco¬ 
latore dispone, oltre che del nome 
che la contraddistingueva sul road- 
book ufficiale e della sua lunghezza 
in chilometri, anche del tipo di fon¬ 
do stradale e dello stato del fondo al 
momento del passaggio delle vetture 
nel vero rally. Il tipo di fondo (nel 
caso del Rally di Montecarlo, asfal¬ 
to per tutte le trenta prove speciali), 
non può essere ovviamente cambia¬ 
to, poiché non avrebbe senso; può 
invece, come detto, essere cambiato 
lo stato del fondo, indicando le pro¬ 
babilità percentuali di avere fondo 
asciutto, bagnato, innevato o ghiac¬ 
ciato. 

Ovviamente, indicando probabilità 
nulle per tutte le voci suddette tran¬ 
ne una si può ottenere fondo in ogni 
caso asciutto o innevato, ecc. 

I tifosi della Lancia potranno così 


sperimentare le gioie del “cosa sa¬ 
rebbe successo se ...” a Montecarlo 
non fosse nevicato o quelli della 
Audi simulare un Tour de Corse tut¬ 
to sul bagnato. 

In base ai dati introdotti, prima di 
ogni prova speciale il calcolatore 
provvede a ricordare il numero ordi¬ 
nale ed il nome della prova speciale 
successiva, la sua lunghezza ed il 
rapporto dei ricognitori circa lo sta¬ 
to del fondo (simulato casualmente 
o basato sui dati reali, in base all’al¬ 
ternativa scelta precedentemente). 
Dopo di che viene chiesto al gioca¬ 
tore di indicare, per ogni vettura del 
rally team da lui controllato, il ritmo 
percentuale da tenere nella prova 
speciale successiva ed il tipo di pneu¬ 
matici prescelto tra quelli a disposi¬ 
zione: slick racing (adatto all’asfalto 
asciutto), M & S (= moud and snow, 
cioè neve e fango, per sterrati fango¬ 
si o fondi innevati, sia asfaltati che 
no), rain (per asfalto bagnato), chio¬ 
dati (per la guida su ghiaccio) e ster¬ 
rato (per i polverosi tratti non asfal¬ 
tati). Non è detto che sia assoluta- 
mente necessario azzeccare il tipo di 
gomma adatto per ogni fondo, una 
vettura a quattro ruote motrici con 
pneumatici rain su sterrato umido, 
andrà senz’altro più forte di una vet¬ 
tura transaxle (motore anteriore e 
trazione posteriore) con pneumatici 
M & S (certamente più adatti a que¬ 
sto terreno). 

Certi errori costeranno solo qual¬ 
cosa in termini di testo, a seconda 
del tipo di vettura, pneumatici e 
combinazione fondo stradale-stato 
del fondo stesso. Altri potranno co¬ 
stare molto di più in termini di per¬ 
centuale di rischio, fino al punto di 
provare uscite di pista o forature, 
dechappamenti e conseguenti danni 
alle sospensioni. 

Dopo che tutti i giocatori hano 
effettuato le loro scelte per ognuna 
delle vetture che compongono i ri¬ 


spettivi team (massimo tre giocatori 
e tre vetture per team), viene propo¬ 
sta la classifica assoluta parziale, li¬ 
mitata alle prime dieci posizioni, 
fornendo i nomi dei due componenti 
dell’equipaggio, il numero di gara 
ed il gruppo a cui la vettura appar¬ 
tiene (A, B o N). 

Dopo aver concesso ai giocatori il 
tempo necessario per rivedere la 
propria situazione di classifica, il 
calcolatore provvede ad assegnare, 
in base ai dati di ogni vettura per 
quanto riguarda potenza, tipo di 
trazione, gruppo di appartenenza ed 
alle scelte operate per ritmo di gara e 
tipo di pneumatici adottatici tempo 
di percorrenza per la prova speciale 
in questione. Come potete immagi¬ 
narvi il meccanismo suddetto rap¬ 
presenta il cuore dell’intero pro¬ 
gramma ed ha richiesto una laborio¬ 
sissima ed attenta messa a punto. 

Il meccanismo è il seguente: per ogni 
vettura, in base alle caratteristiche 
di potenza e di trazione viene asse¬ 
gnato un tempo in secondi al chilo¬ 
metro, questo tempo viene quindi 
moltiplicato per opportuni coeffi¬ 
cienti in base alla combinazione tipo 
di pneumatici adottato-stato del 
fondo, mentre il tempo di base è 
funzione del tipo di fondo stradale 
(asfalto o sterrato) e della maggiore 
o minore adattabilità del tipo di tra¬ 
zione adottato da ciascuna vettura 
al tipo di fondo suddetto: per cui il 
tempo al chilometro per un tratto 
sterrato vedrà una vettura a trazione 
integrale nettamente in vantaggio su 
una vettura a motore centrale e tra¬ 
zione posteriore e, a maggior ragio¬ 
ne, su una vettura “tutto dietro”. 
Viceversa su un tratto asfaltato la 
vettura a motore e trazione poste¬ 
riore dovrebbe avere un lieve van¬ 
taggio su quella a motore centrale, 
ed un vantaggio molto più sensibile 
su di una quattro ruote motrici. 
Quindi il tempo al chilometro viene 
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Rally 

manipolato ulteriormente in base a 
coefficienti casuali calcolati a parti¬ 
re dal ritmo imposto, dal gruppo di 
appartenenza e dalla posizione in 
classifica di ciascuna vettura; quindi 
viene moltiplicato per i chilometri 
della prova speciale ed ulteriormen¬ 
te “randomizzato” in modo da ge¬ 
nerare il tempo totale, che viene mo¬ 
strato sullo schermo, a fianco del 
navigatore dell’equipaggio, per le 
prime dieci vetture. 

Interessante è anche il meccanis¬ 
mo con cui vengono generati i pro¬ 
blemi. Essi sono, genericamente, 
proporzionali al ritmo tenuto, ma 
non è detto che il leader di un rally 
particolarmente tirato non possa 
giungere al traguardo indenne da 
problemi di alcun genere, mentre 
l’ultimo dei gruppi N, pur tenendo 
un ritmo meno frenetico non incap¬ 
pi in guai di ogni sorta ad ogni prova 
speciale. I problemi possono essere 
di tre tipi: 

• irreparabili, tali cioè da provocare 
l’immediato ritiro della vettura col¬ 
pita nel corso della prova speciale; 

• gravi, ma riparabili. In questo 
caso, nel corso della prova speciale 
viene segnalato che la vettura colpi¬ 
ta è stata costretta a pagare un deter¬ 
minato tempo, proporzionale alla 
gravità dei problemi, al controllo 
orario successivo alla prova speciale 
conclusa. Per questi ritardi viene ap¬ 
plicato il regolamento internaziona¬ 
le, che prevede l’immediata esclusio¬ 
ne dal rally se la vettura colpita ac¬ 
cusa un ritardo al controllo orario 
della singola prova speciale superio¬ 
re alla mezz’ora, e l’esclusione, a po¬ 
steriori, nel momento in cui i ritardi 
cumulati nel corso della gara supe¬ 
rano l’ora. Si può quindi sopravvi¬ 



vere ad un problema, anche di una 
certa gravità, purché non si incorra 
successivamente in altri problemi, 
anche in lieve entità. Oppure si può 
essere costretti al ritiro per avere ac¬ 
cumulato tutta una serie di soste, 
anche se ciascuna di pochi minuti; 
• lievi. Essi vengono segnalati sotto 
forma di un ritardo medio stimato al 
chilometro, espresso in decimi di se¬ 
condo. Anche in questo caso, l’enti¬ 
tà del ritardo è proporzionale alla 
gravità del danno che si sta generan¬ 
do sulla propria vettura. All’utente 
viene offerta la possibilità di porre 
riparo ai danni facendo ricorso al¬ 
l’assistenza, nell’intervallo tra una 
prova speciale e la successiva. Se l’u¬ 
tente decide di proseguire, ad esem¬ 
pio perché mancano poche prove 
speciali alla conclusione ed il van¬ 
taggio sugli inseguitori non è tanto 
ampio da permettere di ammortiz¬ 
zare una sosta, ma nemmeno tanto 
scarso da essere intaccato dalla di¬ 
minuzione di velocità dovuta al pro¬ 
blema accusato, il ritardo stimato 
verrà aggiunto al tempo di percor¬ 
renza al chilometro di ogni prova 
successiva, mentre, se si decidesse 
per la sosta, essa verrebbe segnalata 
nel corso della prova speciale suc¬ 
cessiva con lo stesso meccanismo 
della classe di problemi precedente, 
in quanto, in tutto e per tutto, ugua¬ 
le ad essa. Non è quindi conveniente 
porre riparo a problemi di una certa 
gravità, anche se gravemente impe¬ 
dienti, poiché potrebbero provare la 
vostra immediata esclusione per 
raggiunti limiti di fuori tempo mas¬ 
simo. Per la stessa ragione, nel caso 
in cui si sia già incappati in prece¬ 
denti problemi, accumulando quin¬ 
di un certo ritardo ai controlli orari, 
può essere più o meno conveniente e 
rischioso porre riparo, facendo ri¬ 
corso all’assistenza, anche a proble¬ 
mi lievi, che potrebbero costare solo 
qualche minuto ma farvi superare il 
limite massimo dell’ora. 

Dopo ogni prova speciale viene 
mostrata la classifica parziale con i 
dieci migliori tempi in prova. Il gio¬ 
catore può osservarla a suo piaci¬ 



mento segnalando quindi al calcola¬ 
tore di proseguire. Viene quindi ri¬ 
ordinata la classifica assoluta e ne 
viene mostrata una rappresentazio¬ 
ne grafica che consente di visualiz¬ 
zare l’entità dei distacchi: su di un 
nastro vengono posti i contrassegni 
numerati delle singole vetture ad in¬ 
tervalli proporzionali ai tempi inter¬ 
correnti tra una vettura e la successi¬ 
va. Quindi viene mostrata, più det¬ 
tagliatamente la situazione delle vet¬ 
ture controllate dai giocatori, dan¬ 
done il distacco dell’equipaggio che 
le precede ed il vantaggio sul seguen¬ 
te, oltre che la posizione. Quindi il 
programma ricicla come detto. 

Al termine della gara viene mostrata 
la classifica per i primi dieci equi¬ 
paggi su cui viene sovraimpressa la 
vettura utilizzata, che viene anche 
sovrapposta al nome del navigatore 
nel corso delle prove speciali con 
una tecnica che sarà senz’altro fami¬ 
liare ai lettori che ricordano Gran 
Prix. Vengono quindi mostrate le 
classifiche finali per i tre principali 
gruppi (N, A e B), limitatamente ai 
primi dieci di ogni gruppo, con la 
loro posizione assoluta tra parente¬ 
si. 

Infine viene mostrata una tabella ri¬ 
assuntiva che consente di vedere il 
numero di successi parziali e piazza¬ 
menti nei primi sei ad ogni prova 
speciale, per quei piloti che si siano 
piazzati, almeno una volta, tra i pri¬ 
mi sei in una prova speciale. Da no¬ 
tare che il pagamento di un certo 
ritardo ad un qualsiasi controllo 
orario, non influisce sul tempo di 
prova speciale di una vettura, ma 
solo sulla sua classifica assoluta. 
Non stupitevi quindi di vedere ac¬ 
creditati del miglior tempo in prova 
speciale, piloti che hanno poi, in 
conseguenza di soste al termine del¬ 
la stessa prova speciale, decine di 
minuti di ritardo dai primi. 

Qualche parola anche sul mecca¬ 
nismo utilizzato dal calcolatore per 
guidare la corsa di quei piloti che 
non vengono controllati da alcun 
giocatore. Il computer effettua scel¬ 
te basate sul buon senso, vale a dire 
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non decide di far ricorso all’assisten¬ 
za se questo potrebbe portare la vet¬ 
tura in questione ad un ritiro per 
“fuori tempo massimo”, e pondera 
attentamente ogni altra decisione al 
riguardo in base alla posizione di 
ogni vettura relativamente a quelle 
che la precedono e seguono. Analo¬ 
gamente decide per il ritmo da asse¬ 
gnare ad ogni vettura per la prova 
speciale successiva. Ho preferito 
pertanto abbandonare il meccani¬ 
smo utilizzato in “Gran Prix”, che 
assegnava ritmi a decrescere dai pri¬ 
mi in classifica sino agli ultimi. In 
questo caso il ritmo di ogni equipag¬ 
gio è proporzionale al fatto che si 
trovi più o meno a diretto contatto 
con altre vetture. Vale a dire, è tanto 
più elevato quanto maggiori sono le 
probabilità di migliorare la propria 
posizione andando all’attacco della 
vettura che precede o di vedere la 


propria posizione in classifica insi¬ 
diata dalla vettura che segue. Ciò fa 
sì che un pilota in posizione di classi¬ 
fica tranquilla, cioè lontano sia dalle 
vetture che lo precedono, che da 
quelle che lo seguono, non rischi in¬ 
utilmente. Ciò non impedisce le epi¬ 
che rimonte per cui i rally del cam¬ 
pionato mondiale vanno famosi, 
poiché, stante il fatto che tra le vet¬ 
ture che costituiscono le retrovie del 
gruppo e le vetture di testa esiste un 
netto divario di fatto di prestazioni, 
quando una di quest’ultime viene 
attardata da guasti o problemi, la 
differenza di prestazioni suddetta la 
porta comunque a riguadagnare sul¬ 
le vetture che la precedono e, finché 
vi è una realistica possibilità di ri¬ 
guadagnare le posizioni perdute, a 
mantenere alto il proprio ritmo di 
gara. 

Le caratteristiche di Rally, ne fan¬ 


no un classico gioco ad assunzione 
di responsabilità. Non automobiline 
guizzanti a destra e a sinistra in un 
gioco ad alta velocità che si esauri¬ 
sce in pochi minuti; ma decisioni 
realistiche, fondamentali, da cui 
può dipendere l’esito della gara per 
il vostro team. Non ho volutamente 
inserito la possibilità di salvare delle 
situazioni intermedie della gara, per 
proseguire successivamente, anche 
se il gioco è molto lungo (due-tre ore 
per le trenta prove speciali del Mon¬ 
tecarlo, con una trentina di equipag¬ 
gi)- 

Non avrebbe senso: infatti, i buoni 
direttori sportivi si vedono soprat¬ 
tutto quando sono sotto sforzo! 
Scherzi a parte il gioco in questione 
è molto impegnativo e so per espe¬ 
rienza personale che è quasi più dif¬ 
ficile vincere qui che nel vero Mon¬ 
tecarlo! ■ 


NEL PROSSIMO NUMERO DI 


TROVERETE 

GIOCHIAMO A SCOPA CON IL C 64 • JOYSTICK DA TASTIERA 

PER SPECTRUM 


• TOTOCALCIO CON SHARP 


• PLURICALC PER SPECTRUM 


• CALCOLO COMBINATORIO 
CON APPLE 

• RALLY PER CBM 
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66 PROGRAMMI PER ZX81 
e ZX80 CON NUOVA ROM 
+ HARDWARE 

Come sfruttare tutte le 
capacità degli ZX e, 
addirittura, moltiplicarle 
144 pag. L. 12.000 
Cod, 520D 

PROGRAMMI 
DI MATEMATICA 
E STATISTICA 

Come acquistare la logica 
necessaria a risolvere con 
metodo, senza perdite di 
tempo, i problemi con il 
calcolatore 
228 pag. L. 16.000 
Cod. 5S2D 

SINFONIA PER UN 
COMPUTER VIC 20 

Imparare divertendosi è la 
prerogativa di questo libro: 
prima giocate e poi date 
un’occhiata ai listati dei 
programmi 
122 pag. L. 10.000 
Cod. 563D 

75 PROGRAMMI IN BASIC 
PER IL VOSTRO 
COMPUTER 

Programmi sperimentati e 
pronti da usare, oppure da 
rielaborare, ampliare, 
modificare, assemblare 
196 pag. L. 12.000 
Cod. 551D 

77 PROGRAMMI 
PER SPECTRUM 

Dalla Grafica alla Business 
Grafica, dalla musica alle 
animazioni, dai giochi 
all'Elettronica ... tutte le 
possibilità offerte dallo 
Spectrum 
150 pag. L. 16.000 
Cod. 555A 


La Biblioteca che fa testo 


GIOCHI GIOCHI GIOCHI 
PER IL VOSTRO VIC 20 

Il modo più divertente di 
avvicinarsi al computer. 
Una trentina di giochi per 
vostro VIC 20 
108 pag. L. 9.000 
Cod. 557D 

PROGRAMMI UTILI 
PER IBM PC 

Oltre 65 programmi 
ampiamente collaudati e 
pronti per l'uso per il 
Personal Computer IBM 
176 pag. L. 15.000 
Cod. 564D 
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tudiare con lo Spectrum 


Ora sì, che con lui, 
diventi super! Speciale 
per i nostri lettori 
più giovani 


di Marcello Morchio 


U na nota pubblicità televisi¬ 
va dice, riferendosi ad un 
computer ancora più noto, 
che a scuola con “lui” diventi super. 
Capita invece spesso che a scuola 
non solo non si diventi super, ma si 
peggiori a causa dell’assuefazione al 
BASIC e ai video game, che, per 
quanto allenino la mente, non aiuta¬ 
no a migliorare la media. 

Da qui a capire, che per diventare 
super non è sufficiente il solo com¬ 
puter, ma ci vuole un programma 
adatto, il passo è breve. 

Il programma che propongo non 
tenta di fare da insegnante, ma si 
limita a interrogare e giudicare con 


un voto, l’utente. 

Le 10 domande che vengo poste ven¬ 
gono scelte a caso tra una serie di 30, 
precedentemente preparata, ed 
eventualmente memorizzata su cas¬ 
setta, e richiamata ogni volta che 
viene il dubbio di avere dimenticato 
qualcosa. 


Il programma 

Le domande, e le relative risposte, 
(usate per la verifica) sono imma¬ 
gazzinate in due matrici stringa di¬ 
mensionate per contenere 30 frasi 
lunghe al massimo 60 caratteri cia¬ 
scuna. 

Il programma estrae a caso un nu¬ 
mero da 1 a 30 e scrive la domanda 
corrispondente, attendendo la ri¬ 
sposta, che deve essere assolutamen¬ 
te identica a quella immagazzinata 
nella matrice delle risposte. 

Per attirare l’attenzione dell’utente, 
tutte le frasi vengono scritte simu¬ 
lando una telescrivente, ovvero let¬ 
tera per lettera, accompagnando 
ogni carattere da un BEEP di into¬ 
nazione variabile a seconda della 
sua posizione sul video, disattivabile 
con l’opzione “2” all’inizio del pro¬ 
gramma. 


Funzionamento 

Dopo il caricamento da cassetta 
del programma, l’introduzione e le 
scritte di copyright, viene data la 
possibilità di eliminare gli effetti so¬ 
nori e vengono stampate alcune 
istruzioni. 

Segue un menu generale che consen¬ 
te di: 

1) essere interrogati; 

2) caricare una serie di 30 domande 
(e anche risposte) dalla cassetta; 

3) creare una nuova serie di doman¬ 
de introducendole da tastiera; 

4) registrare su cassetta le domande 
e le risposte attualmente in memo¬ 
ria. 

Si suggerisce di creare una prima 
serie di quesiti e di memorizzarli su¬ 
bito su nastro per poi accodarvi al¬ 
tre serie, così da formare una biblio¬ 
teca utilissima per un ripasso auto¬ 
matico computerizzato! Natural¬ 
mente siccome una serie è formata 
da 30 domande, e ne vengono chie¬ 
ste solo 10 alla volta, è opportuno 
ripetere 3 o 4 volte il test per essere 
certi di un ripasso completo. 
Un’ultima nota pratica, la routine di 
stampa simula-telescrivente (9400- 
9460) può essere facilmente isolata 
dal listato e usata per simpatiche 
personalizzazioni dei vostri pro¬ 
grammi. ■ 


Listato 1. Listato BASIC del simpatico programma di 
ripasso automatico. 


1 INK 7; PAPER 0: BORDER 0. C 
LS : LET SOUnd=l 

2 LET d*»" FERMO IL N 
0 5 T R 0": LET X=0 : LET y=10: G 
0 SUB 94.00: LET d$ = " 

•T E S T....": LET y=0: GO SUB 9 
4.00 

3 LET y =6 : LET d» = " <&) S 

crittO da": GO SUB 9400 

4 LET d » = " Marcello Merchi 

0 1984 LET y=10: GO SUB 940 

0 

5 LET X = 0 : LET d$="1-->Sonoro 


Seguito listato 1. 

ON 2-->Sonoro OFF": LET y=2 

1: GO SUB 9400 

6 IF INKEY $ <"1" OR INKEY$>"2" 
THEN GO TO 6 

7 LET sound=URL INKEY» 

8 BEEP .5,0 
10 CLS 

20 DIM q» 130 ,80) : DIM a$i30,60 

) 

60 LET y =0 ; LET X=0 : LET d$ = "T 
i faro'' dieci domande,": GO SUB 
9400 

65 LET y=y+2: LET d$«"alle qua 
li tu dovrai rispodere"; GO SUB 
9400 
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Seguito listato 1. 

70 LET y*y+2: LET d*="b*dando 
a non inserire spazi": GO sub 94. 
00 

75 LET y*u+2: LET d$ = "aU'iniZ 
io o alla fine,e non": GO SUB 94. 
00 

80 LET y=y+2: LET d* = "mettendo 
ne piu' di uno fra le": GO SUB 9 
400 

85 LET y*y+2: LET d*="paroie." 

: GO SUB 9400 

90 LET y ccy +2 : LET d$="Rlta r' i n 
e li darò un voto": GO SUB 9400: 

LET y=y+2: LET d$="da uno a die 
Ci.": GO SUB 9400: LET y=21: LET 
d*="Premi un tasto per continua 
re- GO SUB 9400: PRUSE 0: OLS 

91 LET y =15 : LET X=5 : LET d$ = " 
Scegli l'opzione:": GO SUB 9400: 

LET y = 17 : LET X =1 : LET d* = "l -- 
> In terrogazione": GO SUB 9400: 
LET y = 18 : LET d$ = ”2 --> Caricarne 
nto domande (tape: GO SUB 9400: 

LET y = 19: LET d* = "3 --> Carica» 
ento domande (Key: GO SUB 9400: 

LET y=20: LET d*="4 --> Salvagg 
io domande". GO SUB 9400 

92 LET n*=INKEY|: IP n*<"l" OR 
n$>"4" THEN GO TO 92 

93 IF n $■"1" RND q|(l,l)e" " T 
HEN LET y >21: LET X=l: LET d$ = "N 
on ho domande in memoria": GO SU 


Seguito listato 1. 


B 9400: PRUSE 20: LET d$=" 

": GO SUB 940 


0: GO TO 92 

94 IF n * = "1" THEN GO SUB 100 

95 IF n $ = "2" THEN GO SUB 9000 

96 IF n$="3" THEN GO SUB 6000 

97 IF n*="4" THEN GO SUB 7000 

98 GO TO 91 

100 LET voto =0: FOR n=l TO 10 
110 LET q=INT iRND*30)+l 
120 LET i$=q*(q): GO SUB 8000 
130 LET C$=i* 

140 LET i$ =a $ ( q) : GO SUB 8000 
150 LET r $ = i$ 

160 CLS : LET y=0 : LET d« = C«: G 
0 SUB 9400 

170 INPUT LINE 9 «: IF g$Of* TH 
EN GO TO 200 


175 LET X =2 : LET d$ = "PERFETTO ! ! 
risposta esatta!": LET y=5: GO 
SUB 9400 

180 LET d $ = r $ : LET y=8 : GO SUB 
9400 

185 LET VOto=VOtO+l 
190 GO TO 260 

200 LET di*" NOOOOOO!" 

LET y >5 : GO SUB 9400 
210 LET d$="ia risposta era :": 
LET y=10: GO SUB 9400 
220 LET d( = r $ : LET y=12: GO SUB 
9400 

230 LET d t = " la tua invece e'sta 



LA PRIMA 

E PIÙ DIFFUSA RIVISTA 
DI PERSONAL 
COMPUTER 

Una pubblicazione 
del Gruppo Editoriale Jackson 



MUSICA E INFORMATICA 

Dopo il successo incontrato dalla serie di articoli “Speciale 
MIDI” apparsi su “Strumenti Musicali” di Marzo, Aprile, 
Maggio e Giugno/Luglio, che trattano l’interfaccia MIDI 
tra personal computer e strumenti musicali, sono in corso 
di realizzazione altre iniziative nel settore dell’informatica 
applicata alla musica. Tra queste troverete: una serie di 
articoli sull’utilizzazione del personal in musica corredati 
di esempi applicativi e di semplici programmi, la presenta¬ 
zione di programmi per la ricerca e l’analisi degli accordi 
particolarmente utili per chi inizia a interessarsi di musica 
e armonia. Negli spazi sempre più ampi che “Strumenti 
Musicali” dedicherà all’informatica saranno sempre pre¬ 
senti le rubriche “Computer Music” e “Notiziario AIMI”. 
Tutti coloro che si interessano d’informatica, sia a livello 
professionale che amatoriale e hanno interessi musicali 
troveranno nella rivista “Strumenti Musicali” edita dal 
Gruppo Editoriale Jackson, il mezzo più aggiornato per 
avere una costante informazione su tutto quanto avviene 
nel settore dell’informatica applicata alla musica. 
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Seguito listato 1. 

ti:": LET y=14: GO SUB 94-00 
24-0 LET d $ =9 $ : LET y=18: GO SUB 
94-00 

260 PAUSE 100 
270 NEXT n 
275 CLS 

280 LET d*="Fine delle domande" 
: LET y =0 : GO SUB 94-00 
290 LET y=10: LET d*="il tuo VO 
to e + STR$ voto: GO SUB 94-0 

0 

300 LET y =21 : LET d* = "R -->Ripe 
tere u -->uscire": GO SUB 94-00 
310 PAUSE 0 

320 IF INKEY$="f" THEN CLS : RE 
TURN 

330 CLS : STOP 

6000 CLS LET y=0 ; LET dfc"Inse 
ri mento domande": GO SUB 9400: F 
OR n =1 TO 50: NEXT n 
6010 CLS : FQR n*l TO 30 

6020 input "domanda ";(n)' line 
q$in) ""risposta (n) ' LINE a$(n 
) 

6030 PRINT n ; " ) " ; q$ (n ) ; " ",a«(n 

) 

6040 NEXT n 
6050 CLS : RETURN 

7000 LET y=0: LET X»l: LET d$="N 
ome dell' array ?": GO sub 9400 
7010 INPUT LINE n $ : SAUE nf DATA 
qfO: SAUE n * DATA afU: CLS : 
RETURN 


Seguito listato 1. 


3000 

3010 

URN 

3020 

3030 

3040 

3999 

9000 

rise 

9010 

ray 

0 

9020 

NTER 

9030 

Che 

9040 

9050 

DATA 

i cam 
0 

9060 
9400 
94 10 
9415 
9420 
LET 
9430 
9440 
9450 
9460 


FOR W=1 TO LEN i « 
IF i$ (LEN i$) < >" 


THEN RET 


( TO LEN i$-1) 


LET i$ = i$ 

NEXT u 
RETURN 
STOP 

CLS : LET y=2 
i il nome": GO SUB 9400 
LET y =y +2 : LET d* = "dell 
con le domande,”: GO SUB 


LET d$="lnse 
0 « 

a r 
940 


LET y =y +2 ; LET d$="oppure E 
per caricare": Gu SUB 9400 
LET y =y +2 : LET d| = "il primo 
trovo.”: GO SUB 9400 
INPUT "nome:"; LINE nf 
LOAD n $ DATA q*(): LORD n* 
a $ ( ) : LET y*21: LET d* = "Car 
ento effettuato": GO SUB 940 


CLS : RETURN 
PRINT AT y,X ; 

FOR w»l TO LEN df 
IF sound =2 THEN GO TO 9440 
LET bep=W*2: IF bep>60 THEN 
bep =W 

BEEP .05,bep 
PRINT d$ (w ) ; 

NEXT w 
RETURN 


OTHELLO REVERSI PER C 64 

Alcuni errori nel riquadro relativo alle modifiche per C 64 
di Othello Reversi pubblicato nel n. 18 di Personal Softwa¬ 
re, hanno reso il programma inutilizzabile. 

Ce ne scusiamo con i lettori e pubblichiamo l’elenco com¬ 
pleto delle modifiche da apportare al listato 1 (che era la 
versione VIC 20), per rendere il programma funzionante 
sul C 64. 


1 R=RND(-TI) :POKE54 2 96,1 5 :WS= 54272 :POKEWS+ 5,9 :POKEWS + 6,0rGOTOl09 
32 FORI=0TO50:POKEWS + 0,81 :POKEWS + l,7 :POKEWS+4,33 :NEXT: GOTO!09 
34 FORI = 0TO50:POKEWS+0,20 :POKEWS+1,117:POKEWS + 4,33 :NEXT:G0T0109 
52 POKEWS+0,81 :POKEWS+1,7 :POKEWS+4,33 
55 FORI=1TOl500:NEXT:POKEWS+4,0 

94 POKEWS+0,20 :POKEWS+1,117 :POKEWS +4,33 :FORM=0TO7:FORN=1T08 
103 POKEWS+4,0:RETURN 
125 POKEWS+4,0:CLR:GOTO2 
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D al BASIC al Pascal 


— Parte settima — 


Scrivere un programma da zero 


a cura della Redazione 


O ra che abbiamo provato a tradurre un pro¬ 
gramma dal BASIC al Pascal, il prossimo 
passo logico da fare sarebbe partire da zero 
con qualche scopo in mente per vedere se riusciamo a 
formulare un programma funzionante. 

Mi chiedo quanti di voi abbiano provato a scrivere un 
programma per trovare i numeri primi. I numeri 
primi sono gli interi che non sono divisibili per altri 
interi eccetto loro stessi e uno (tutti gli interi sono 
divisibili da loro stessi e da uno senza dare resto). Per 
esempio, 7 è un numero primo perché non ha altri 
divisori interi diversi da 1 e 7. 

Due è un numero primo, ma naturalmente tutti gli 
altri numeri pari sono divisibili per 2 e quindi non 
sono primi. Un numero non primo è il prodotto di 
due o più numeri, che si chiamano suoi fattori primi. 

I programmi per i numeri primi sono interessanti, 
perché illustrano un aspetto importante dopo che 
abbiamo scritto delle versioni di programmi. Suppo¬ 
nete di avere un “cliente” immaginario il quale vuole 
un programma che gli permetterà di introdurre un 
numero per vedere se tutti i numeri minori o uguali a 
quello sono primi, e che gli elencherà ordinatamente 
al terminale tutti i numeri primi a partire da 1 fino al 
numero inserito. Alcuni comprendono 1 nell’elenco 
dei primi e altri no. Noi lo metteremo. 

È possibile “barare” e iniziare l’elenco con 1, 2 e 3. 
Dopo aver stampato i numeri primi, il programma 
dovrebbe riportare il numero dei primi trovati e il 
limite introdotto dall’utente, nella forma: ci sono 
NNN primi fra 1 e NNNN. 


Il primo tentativo 

Il metodo empirico controlla tutti i numeri da 1 
fino al massimo, per vedere se sono divisibili da 
qualche numero fra 1 e il numero da controllare. 


Poiché sappiamo che tutti i numeri pari maggiori di 2 
non sono primi, sarebbe più sensato controllare solo i 
dispari per ridurre il lavoro. Per evitare controlli 
inutili, il programma dovrebbe esaminare un numero 
finché non trova un fattore o finiscono i divisori di 
controllo. Non appena si trova un fattore, il numero 
in questione si dimostra non primo. Se il programma 
esaurisce i divisori di controllo senza trovare un fat¬ 
tore, il numero è primo, e deve essere stampato. 
Quali variabili ci serviranno? 

Trattiamo solo i numeri INTEGER, quindi non sono 
richieste delle variabili REAL. NUMEROMAX con¬ 
terrà il numero massimo da controllare. NUMERO- 
MAX sarà limitato a meno di 30.000, per non avere 
problemi con l’aritmetica degli interi, limitata a 
32.767 in quasi tutti i sistemi di microcomputer. Un 
buon nome per il numero in esame è CANDIDATO 
(alla condizione di primo). 11 divisore di controllo 
può essere TEST. La specificazione del problema 
comprende anche il conteggio dei primi. CONTO va 
bene. 

Useremo la funzione MOD per i nostri controlli. Se A 
è divisibile per B senza dare resto, allora A MOD B è 
zero. Cioè, il resto della divisione è zero. Useremo 
una variaile BOOLEAN per uscire dal ciclo di con¬ 
trollo non appena trovato un divisore. Un nome 
logico per questa variabile è PRIMO. 

Quali procedure dovremo scrivere? Una che con¬ 
trolli ogni numero per vedere se è primo. Un’altra per 
chiedere il massimo all’utente. Almeno una delle va¬ 
riabili sopracitate può essere locale a una procedura: 
allora cominciamo in mezzo e scriviamo prima le 
procedure, poi decideremo quali variabili devono 
essere globali. 

PROCI- ni INI A9K: 

FtFfelN 

WR 1 IFI N( 

WRIT'fc t L IMI Tf '..UPLRIURI DI I PRIMI '! 

REAL) ( NUMI-ROMAX ) : 

WRITt-l N; 

END: 

f T<nrj DI IR! 11 )•>I <NUMERQ : INIf UtR> ; 

(PULII- PRIMO U&UAl F A VERO SE II NI INERII t. UN NUME KU PRIMO) 

VAR 

IFSl:INTfctìfcR: 

Bf GIN 

PRIMO:-t RUL; 

TESI s «T; 

RF.PEAT 

Il NUMERO MUU TEST-0 IME.N PRIMIl:»FALf.f ; 

IESI i «rEBT+2; 

UNI IL NUf PRIMO OR (TEST >-NUMERO); 

FNB; (TESI/ 

Sicuramente alcuni di voi stanno dicendo che que¬ 
sto è un modo orribile per trovare i primi. Certo, 
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avete ragione. È anche il modo più semplice, e se 
avrete pazienza, fra poco vedremo un modo più com¬ 
plicato, ma molto più efficace. Sarebbe bello poter 
generare i numeri in una tabella. Perché non mettia¬ 
mo 10 primi in una riga? Ecco una procedura per 
stampare i primi di quel formato: 

PM ITT DI IRE RE PI JRT PRIME: 

BEO IN 

URI IE il ANNIDATO! /> : 

CfiNTlj» -CONTO* l : 

Il CI IN I II fimi |U**V» TMI N NKiril.Ni 

(INDI 

Il programma principale avrà tre parti. Nella prima, 
il programma chiede il massimo dei numeri da esami¬ 
nare e inizializza le variabili. La seconda parte è il 
ciclo principale che cerca i primi. L’ultima parte 
stampa i risultati. 

Il programma completo è il listato 1. Per controlla¬ 
re questo programma è stato usato un compilatore 
che produce un codice efficiente, ma non è così veloce 
come altri. 

l'f IN R AH PRIMI l INTUÌ .tlflTPUI > I 

VAR 

PRIMI): HI II IL LAN; 

( ANI»! l'AfL),LONTU, NUMI RUMA X : INTE6EK* 


:l l.lH.Kf.HhA II- INC II ALL' 


Af lì IN 
A'-il | 

WKllfl W; 

URI M il»/, 2«/, i/»l • ! RIMI NUMI Ri PRIMI } 

I IJNTtl: I INI . I Al I//#« I A VmKI ADII E ; 

i ARDIRAI li; 

UH 11 I I »<NL) I II A T11 ^NIJIH I.LlrlAA Ou 
HI li IN 

U'al A mNOIDAIÙ) : 

II- PRIMO I UHI KEPI Ut II'RI ME: 

I AUDI l’Aio: -i anhIDATh*: : 

RI4II; UHll k I ANUlDAlli, 

HLllMNl 

Afri fui- t il SONO . UUNIllii., IRlhl L'A I A . NUMt ROMA K : 6 ) : 
Uh I IH ri; 

END. 


C’è un modo migliore 

Come migliorarlo? Quanti divisori di controllo 
dobbiamo usare per dimostrare che un numero è 
primo? Sappiamo che il primo (più piccolo) divisore 
di controllo è 3. 

Se il numero fosse divisibile per 3, l’altro fattore (se si 
assume che siano 2) dovrebbe essere 1/3 del numero. 
Se un numero più grande è un divisore che non dà 
resto, l’altro fattore è ancora più piccolo di 1/3 del 
numero. Infatti, se il numero in esame ha due fattori, 
sotto quali condizioni questi due fattori sono i più 


grandi possibile? Se entrambi sono uguali alla radice 
quadrata del numero da controllare. 

Ecco l’idea. Se uno dei due fattori è maggiore della 
radice quadrata del numero, l’altro deve essere mino¬ 
re. Prendete come esempio il numero 169 da control¬ 
lare per vedere se è primo. Troverete che non è divisi¬ 
bile senza resto da 3, 5, 7, 9 o 11. È divisibile da 13, 
che dà un altro fattore di 13. Cioè, 13 ★ 13 = 169. 
Non è necessario controllare alcun divisore maggiore 
della radice quadrata del numero per dimostrare che 
è primo. 

Questo ci aiuterà molto? Il programma ora deve fare 
quasi 500 controlli per trovare l’ultimo primo, 997. I 
numeri dispari da 5 a 31 (33 è maggiore della radice 
quadrata di 1000) sono 15. 

Poiché fare delle moltiplicazioni è più veloce che 
estrarre la radice quadrata, il nuovo limite di control¬ 
lo si può inserire nella procedura TEST cambiando la 
UNTIL NOT PRIMO OR (TEST > = NUMERO); 
un po’ per avere la UNTIL NOT PRIMO OR (TEST 
★ TEST > NUMERO);. Notate che non possiamo 
abbandonare le prove quando il quadrato è uguale al 
numero da controllare, perché i quadrati perfetti 
come 25, 49 e altri verrebbero riportati come primi. 
E interessante notare che il tempo di elaborazione si è 
ridotto circa alla radice quadrata del tempo dell’altro 
programma. Questo indica che abbiamo eliminato la 
parte del programma che consumava la maggior par¬ 
te del tempo. Abbiamo diminuito il numero di con¬ 
trolli a circa la radice quadrata del numero del pro¬ 
gramma precedente, e il tempo si è ridotto di conse¬ 
guenza. Il programma “nuovo” è solo 8 byte più 
lungo! 


Ancora meglio! 

C’è la possibilità di ridurre ancora ciò che il pro¬ 
gramma deve fare? 

Sì, si può fare un miglioramento considerevole. Que¬ 
sto miglioramento non avrà molto significato per il 
limite di 1.000 numeri, ma per 10.000 o 20.000 ne 
avrà. Si può dimostrare che non dobbiamo usare 
divisori di controllo che non siano primi. 

Per darvi un esempio, se il numero sotto esame è 
divisibile per 9, 15 o 21 (tutti multipli di 3), allora è 
anche divisibile per 3. Inoltre il fattore 3 è più piccolo 
di questi numeri e sarebbe già stato trovato, quindi 
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Listato 1. Il primo tentativo di programma per il calcolo dei numeri primi. 


PROGRAM PR.1 MI ( tNF-'UT ,OUTPUF I ; 

VAR 

PRIMO: Bllt.lL PAN; 

CANDIDA I 0 , CONI ÌJ, NUMEROMAX : I NT E BER ; 

PROCEDURE ASKs 

F.iPX-i 1 N 

WRI IPi.lt; 

WRITF. ("LIMITE SUPERIORE DEI PRIMI? '); 

READ(NUMEROMAXi: 

WRITEl.N; 

END; 

PROCI- DI IRE T E S T (NUME RO : IN TEGER > ; 

(PONE PRIMO UGUALE A VERO SE 11. NUMERO E UN NUMERO PRIMO) 
VAR 

IEST : 1NTEGER; 

BEGIN 

PRIMO: =»TRLIE; 

TEST :=3; 

REPEAT 

IF NUMERO t'iUD 1 EST =0 THEN PR IMO: =EALSE ; 

TES T :=TEST+2; 

UNT il. NOI PRIMI) OR (TESTENUMERO) ; 

END; -I TESTI 

PROCEDURE REPUR IPRIME ; 

BEGIN 

WR IT F ( CANI) I DATOt 7 > ; 

CONTO:-CONI 0+1 ; 

IP CONTO MOI) i0*0 THEN WRITEL.N; 

END; 


(PROGRAMMA l'E INCI f'AL.E !• 


BEO IN 
ARE; 

WRI TEI. N; 

WR1TE t i':/, .2 :/,•:>*: 7); I PRIMI NUMERI PRIMI) 

CONTO ; =3 : 11NI 2.1 Al. T /. 7 A ì A VARI AB Ili) 

CANDIDAI LI: -h; 

WHIL.E PANDI DATO;-NUMEROMAX DU 
BEGIN 

IESI (CANDÌ DATO): 

IP PR 1MO THE N RE POR I PR 1 ITE ; 

CAND I DA I O : -i AND I DA T0 » 2 ; 

END; LWH ILE. CANOIDAlU) 

WRI TEI N; 

WRI TEMI (Ci «ONU , LUN I li : 5, PRIMI DA 1 A , NUMEROMAX : 6 ) ; 
WRITELN; 

END. 









Dal BASIC 

_al Pascal_ 

l’uso di divisori di controllo non primi è ridondante. 
Nel caso del primo 997, il numero di controllo è stato 
ridotto da 497 a 15 quando è stato cambiato il pro¬ 
gramma. Di quei 15 numeri, 9, 15, 21, 25 e 27 non 
sono primi, lasciandoci 10 controlli e una riduzione 
del 33 percento per il primo più grande. 

Il miglioramento effettivo nel tempo di esecuzione 
potrebbe non essere così grande come queste cifre 
dicono, poiché ora è necessario ricordare i primi 
numeri trovati per usarli come divisori di controllo. 
Ci sarà bisogno di un vettore. Ci sono meno di 50 
primi da 3 alla radice quadrata di 30.000, il limite di 
capacità del programma (32.767 nella maggior parte 
dei sistemi), e quindi ci basterà un vettore di dimen¬ 
sione 50. La procedura TEST dovrà usare i numeri 
del vettore anziché tutti i numeri dispari. La procedu¬ 
ra REPORTPRIME, quando visualizza un numero 
primo sullo schermo, ora deve anche scrivere i primi 
50 primi nel vettore. Il programma principale deve 
inizializzare i primi tre numeri primi nel vettore, per 
iniziare la serie dei primi. I cambiamenti sono elenca¬ 
ti qui sotto: 

PROCE DURI* Ab» ; 

BEGIN 

WRITELNj 

URITE (UPPER L IMI f U» PRIMI . ); 

READ<NUMEROMA<>; 

WRITEl.N; 

END; 

PROCEDURE. TL'jI (NUMRER: IMTEGeR) ; 

VAR 

N: I NI E UER ; 

BER 11'» 

PRIMO:«TRUfc ; (ASSUME PRIME UNI IL PROVEN NOU 
Nj 

REPEAT 
N:-N+l; 

IP NUMBER MOD PRMElNJ-u IHEM PRIMO:-FALSE; 

UNTIL NCil F'NIMU OR <F , RMfclNJ*PRMELNJ NUMBER»: 

END; {TEST) 

PROCEDURE REPUR 1PRINE; 

DEGIN 

URITE (CANDIDATO:/); 

CON TU:-CONIUGI ; (PRIME COUNT} 

1K CONTO'51 THEN PRMElCONIOJ:-CANDIDATO: (SALVA I PRIMI PRECEDENTI! 

IF CON 1 11 MUL) IO»** THEN WRITfcTN; 

END; 

I risultati in termini di tempo di elaborazione per i 
primi fino a 1000 sono un po’ deludenti. 11 program¬ 
ma viene eseguito in poco più di 12 secondi anziché 
11. Quando il limite è aumentato fino a 10.000, però, 
le cose sono più vicine a quanto ci aspettiamo. Il 
tentativo precedente, che usava tutti i numeri dispari 
come divisori di controllo, veniva eseguito in 3 minu¬ 
ti e 40 secondi. Questo programma viene eseguito in 3 
minuti e 14 secondi. 

È un miglioramento di circa il 15 percento. Il primo 
miglioramento è stato il migliore e ci costa di meno in 
termini di dimensione del programma. La parte del¬ 
l’utente di questa ultima versione è di 488 byte, oltre 
100 in più della versione precedente. Siamo ancora 
molto lontano dall’algoritmo più efficiente riportato 


da Niklaus Wirth, ma abbiamo scritto e migliorato 
un programma a partire dal nulla. Per completezza, il 
programma finale è il listato 2. 


Un approccio diverso 

C’è un altro modo per trovare i primi. Consiste 
nell’inizializzare una matrice in modo che contenga 
tutti i numeri dispari da 1 fino al limite dei primi da 
trovare. Poi si parte da 3 (ma non lo si comprende), e 
si azzerano tutti i multipli di 3 (che si trovano a 
distanza di 3 spazi l’uno dall’altro nella matrice). Poi 
si trova il primo primo maggiore di 3 e si azzerano 
tutti i suoi multipli. Se si ripete questo processo fin¬ 
ché non siano azzerati tutti i multipli dei primi minori 
della radice quadrata del numero massimo, i rima¬ 
nenti elementi della matrice sono dei numeri primi. 

È poi molto semplice trasferire tutti i valori della 
matrice al dispositivo di uscita. Questo metodo im¬ 
pone di trovare tutti i primi, prima di trasferire i 
valori. C’è un costo nel far uscire i primi perché il 
programma deve controllare la matrice e salvare i 
valori azzerati. Nel sistema Pascal usato per questi 
controlli, i primi si trovano in 22 secondi utilizzando 
questa tecnica e si stampano al termine in 7 secondi 
circa. Questa è una traduzione approssimata di una 
vecchia versione BASIC, quindi non ci sono proce¬ 
dure. Poiché è un programma di una sola pagina, ciò 
è accettabile. Se volte, come esercizio, spezzatelo in 
tre o quattro procedure (TROVAMAX, CANCEL¬ 
LARE, STAMPARISULTATI) e un programma 
principale. Siccome ognuna di queste sarà elaborata 
una volta sola, la divisione avrà solo motivi estetici e 
di chiarezza del programma. 

È interessante notare che a volte un po’ di riflessio¬ 
ne può causare un enorme miglioramento rispetto 
alla prima idea che viene in mente come algoritmo 
per un programma. Uno dei metodi per paragonare i 
microprocessori è di paragonare il tempo di elabora¬ 
zione. 

Di solito è più veloce accorciare il vostro algoritmo 
anziché cercare di trovare un microprocessore più 
veloce. 

Innanzi tutto, dove impiega più tempo il program¬ 
ma? Nel caso del programma per i primi, la risposta 
ovvia era: nel ciclo di controllo. 

Dopo aver deciso dove il programma impiega la 
maggior parte del tempo, la prossima cosa da fare è 
decidere come ridurre tale tempo. Ciò si può fare o 
diminuendo il numero di volte che il ciclo viene ese¬ 
guito (il nostro approccio in questo caso) o dimi¬ 
nuendo il tempo passato ogni volta che il ciclo viene 
eseguito. Questo si fa togliendo tutti i calcoli che non 



23 








Dal BASIC 
_al Pascal 


Listato 2. Programma finale che ricerca i numeri primi. 


PROGRAM F'R I(112 ( I NT U T , UUTPU I ) ; 

VAR 

PRIMO:GOOLEAN; 

CANDIDATO. 

CONTO, 

NUMEROMAX: INTE6ER; 

PRME : ARRA V II.. 50 I OP INTE6ER : 

PROCEDURE ASK; 

BEGIN 

WRITELN; 

URITE (UPPER LI MIT OF PRIMES? ); 

READ(NUMEROMAX>; 

WR ITELN; 

END; 

PROCEDURE TESI (NIJMBER: INTEGER) ; 

VAR 

N:INTEGER; 

BEGIN 

PRIMO:«TRUE; {ASSUME PRIME UNI IL PROVEN NOTI- 
N : =2 ; 

REPEAT 

N: =N+1; 

IP NUMBER MOD PRMEIN3=0 THEN PRIMO:=FALSE; 
UNTIL NOI PRIMO OR ( F'R'ME l N 3 *PRME t N 3 XNUMBER); 
END; {TESTI 


PROCEDURE REPORTPRI ME ; 

BEGIN 

URITE (CANDIDATO:7); 

CONTO:«CONTO+1; {PRIME COUNT} 

IP CDNTOOl THEN PRMELCONTO3 :«CANDIDATO; {SALVA I PRIMI PRECEDENTI} 

IP CONIO MOD 10=0 THEN WRITELN; 

END; 


(PROGRAMMA PRINCIPALE} 


BEGIN 
ASK ; 

WRITELN; 

URITE <•1':7, 2': 7, '3':7); {PRIMI NUMERI PRIMO 
CONTO:=3; IIN I Z IAL I ZZA LA VARIABILE} 

PRME L 1 3 : = 1 ; PRME C 2 3 : =-2 ; 

PRMEc33 :=3; {INIZIALIZZA} 

CANDIDATO: -5; 

WHILE LANDt DA IU<«NUMEROMAX DO 
BEGIN 

TEST (CANDIDATO); 

IP PRIMO THEN REPORTPRIME; 

CANDI DA I0:=CANDIDATO+2 ; 

END; {UMILE CANDIDATO} 

WRITELN; 

WRI TELN ( CI SONO ,CONTO:5, PRIMI DA 1 A ,NUMEROMAX: 6); 
URI TEI N; 

END. 
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Listato 3. I numeri primi col crivello di Eratostene. 


PROGRAM PRIMESIV < INPUT , OUTPUT ) ; 

■(.PROGRAMMA PER TROVARE I NUMERI PRIMI COL CRIVELLO 01 ERATOSTENE} 
VAR 

MAX, CLIMI TE DEI PRIMI} 

PRIMPTR, [PUNTATORE DEI PRIMI I CUI MULTIPLI SONO AZZERATI} 

J,N, (VARIABILI INDICE} 

INTERVALLO, L'IRA I PRIMI CHE VENGONO AZZERATI} 

CONTO, { DE I PRIMO 

MEDIOMAX, [META' DEL MASSIMO} 

LIMRIC [LIMITE DELI.A RICERCA DEI MULTIPLI}: INTEGER; 

PRIMO: ARRAY Ci..5000J OF INTEGER; 

BEGIN 

WRITELN; 

WRITE ('NUMERO MASSIMO? '); 

READ (MAX); 

WRITELN ( TROVARE PRIMI P INO A ,MA X : 6 >; 

WRITELN; 

[INIZIALIZZAZIONE VARIABILI} 

MEDIOMAX:=MAX DIV 2; 

LIMRIC:=TRUNC(SQRT(MAX))+1 ; 

INTERVALLO:=3; 

PRIMPTR:=2; 

(INIZIALI ZZARE LA MATRICE DEI NUMERI DISPARI} 

POR N:-1 TO MEDIOMAX DO 
PRIMO L NI: =2*N- 1 ; 

[CICLO PRINCIPALE} 

WHILE INTERVALLO*: LIMRIC DO 
BEGIN 

J:=INTERVALLQ+(INTERVALLO+1) DIV 2; 

[TROVA IL. PRIMO MULTIPLO DEI PRIMI I CUI 
MULTIPLI DEVONO ESSERE CANCELLATI} 

WHILE J<=MEDIDMAX DO 
BEGIN 

PRIMOt J } : =*0 ; 

J:=J+INTERVALLO; 

END; (WHILE J} 

PRIMPTR:=PRIMPTR+1 ; 

WHILE PRIMO!PRIMPTR1=0 
DO PRIMPTR:=PRIMPTR+1 ; 

(TROVA IL PROSSIMO PRIMO DIVERSO DA ZERO} 

INTERVALLO:=PRIMO[PRIMPTR3 ; 

END; (WHILE INTERVALLO} 

CONTO:=1 ; 

WRI TE < ' 2 ); 

FOR N:=1 m MEDIOMAX DO 
BEGIN 

IF PRIM0CN3OD THEN 
BEGIN 

WRITE (PRIMOtNI : 7) ; 

CONTO :=CON T0+1 ; 

IF CONTO MOD 10=0 THEN WRITELN; 

END; 

END; (FOR NI 
WRITELN; 

WRITELN; 

WRITELN ('CI SONO ,CONTO:ò, PRIMI. >; 

END. 









Libri firmati 
JACKSON 






Rita Bonelli - Daria Gianni 

ALLA SCOPERTA DEL 
VIC 20 

Un testo chiave per 
imparare a conoscere e 
usare uno dei Personal del 
momento. 

308 pagine L. 22.000 
Codice 338D 
Cassetta Programmi 
L. 15.000 
Floppy Programmi 
L. 25.000 

Gaetano Marano 

77 PROGRAMMI PER 
SPECTRUM 

Dalla Grafica alla Business i 
Grafica, dalla musica alle 
animazioni, dai giochi 
all’elettronica... tutte le 
possibilità offerte dal più 
piccolo dei computer. 

150 pagine a colori 
L. 16.000 
Codice 555A 

Nicole Brèaud-Pouliquen 
LA PRATICA DELL’APPLE 

“Il Sistema APPLE II", 
il “BASIC Applesoft", 
il disegno e la grafica: 
arricchiti da esempi e 
esercizi. 

130 pagine L. 10.000 
Codice 341D 


Giacomino Baisini 
Gió Federico Baglioni 

ILFORTH PER VIC 20 E 
CBM64 

La programmazione in 
FORTH e la sua 
implementazione sul 
Commodore VIC 20 
eCBM 64. 

150 pagine L. 11.000 
Codice 5278 

Carmine Elefante 

L'HOME COMPUTER 
TI/99-4A 

Il BASIC, il BASIC Esteso e 
il microprocessore 
dell'home computer della 
T.l. Con programmi di utilità 
e svago. 

192 pagine L. 15.000 
Codice 343B 

Alessandro Polistina 

COMPUTER GRAPHICS, 
CAD, ELABORAZIONE DI 
IMMAGINI: sistemi e 
applicazioni 

Tutti gli atti del 3" Convegno 
nazionale AICOGRAPHICS, 
finalmente a disposizione di 
operatori, sperimentatori, 
appassionati. 

512 pagine, 33 illustrazioni 
a colori L. 45.000 
Codice 529C 


La Biblioteca che fa testo 


Hn busta chiusa, e senza impegno, inviate questo coupon a: 
Gruppo Editoriale Jackson -Via Rosellini, 12 - 20124 Milano 

□ Desidero ricevere gratuitamente il Catalogo Generale 
della Biblioteca Jackson e informazioni sulle 10 Riviste 
specialistiche da voi pubblicate. 

> allego L. 1.000 in francobolli per contributo spese di spedizione) 

□ Desidero ricevere contrassegno il/i volume/i 


(pagherò al ricevimento L. 

piu L. 2.000 per contributo spese di spedizione) 


Nome. 
Via_ 


. Cognome. 


CAP. 


. Città. 


— I 



devono far parte del ciclo e mettendoli prima del 
ciclo. Un esempio nel programma 3 è il calcolo di 
MEDIO MAX che si fa prima e, naturalmente, LIM- 
RIC. Non sono costanti perché dipendono dal valore 
di MAX introdotto dall’utente. 

Tuttavia, il loro valore non cambia alPinterno del 
ciclo di controllo e si sprecherebbe molto tempo se si 
usasse un’istruzione quale FOR N: = 1 TO^MAX 
DI V 2; che richiederebbe la divisione di MAXaa 2 ad 
ogni attraversamento del ciclo. 

Ovviamente l’istruzione WHILE INTERVALLO 
< TRUNC (SQRT (MAX)) + 1; richiederebbe anche 
il calcolo di una radice quadrata ogni volta. L’ap¬ 
proccio che dà i migliori risultati è di solito una 
combinazione di entrambi i modi. 

Alcuni compilatori Pascal permettono una facile 
interfaccia alle procedure scritte in Assembly. 

Forse se si scrivesse la procedura TEST in Assembly, 
si potrebbe ridurre di molto il tempo di elaborazione. 
Un’altra possibilità per ridurre il tempo di elabora¬ 
zione di programmi è di accertare che non si usino 
delle variabili REAL laddove andrebbero bene delle 
variabili INTEGER. Avrete forse notato nel pro¬ 
gramma precedente che la frase contenente la SQRT 
è l’unico posto dove è richiesta l’aritmetica reai. 
Quell’unica istruzione fa sì che venga caricato il pac¬ 
chetto dell’aritmetica in virgola mobile, o almeno la 
funzione SQRT e anche i programmi di supporto che 
essa richiede. E possibile scrivere una funzione “inte¬ 
ra” della radice quadrata in tre o quattro righe e 
quindi eliminare la necessità del pacchetto dell’arit¬ 
metica reai. Nel caso presente, preferiremmo andare 
un po’ troppo in là con il nostro controllo anziché 
essere brevi, così potremmo volere aggiungere 1 alla 
radice quadrata intera usando LIMRIC. 

FUNCTION SQRT (NUMHfRs lNTLlìl-K) : INTtnER; 

CONST 

INIT» 4 j 

VAft 

RESULT, 

GUESS:INTEGER» 

REGIN 

GUESS:®INII ; 

WHILE AK-U (GlfEGS-RESUl I i 1 OCJ 

BEG IN 

RESULTI-NIIMBER DIV GUESS; 

GUESS: » (GUESS+RE3HLT '< DW 

END: 

SQRT:-GUESS; 

END; 

Questo dovrebbe essere un po’ più veloce della 
SQRT reale, poiché il calcolo è fatto con meno cifre. 
Siccome lo si fa una volta sola, non si potrà notare la 
velocià maggiore, ma si genererà meno codice. 
Inoltre nel vettore non c’è bisogno di mettere i valori 
dei numeri dispari, ma solo dei segnali per indicare se 
una posizione nella matrice è piena o no. Quindi si 
può fare una matrice di BOOLEAN e inizializzare 
tutte le posizioni come TRUE. Alla fine del program¬ 
ma, il numero rappresentato da ogni posizione si può 
calcolare facilmente usando 2 ★ N - 1 se N è l’indice 
del vettore. ■ 
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fusi al mondo. 
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si trova al primo turno (cioè dopo la 
seconda carta), è il primo di mano. 
Una seconda differenza riguarda il 
punteggio: in caso di parità vince chi 
ha effettuato l’ultimo rilancio. 

Dopo questa nota di carattere in¬ 
troduttivo vediamo come giocare a 
Stid Poker. Dopo aver dato il RUN 
sullo schermo appare la scritta 
“QUANTI SIETE? (0-4)”, occorre 
quindi digitare il numero dei parte¬ 
cipanti, automaticamente eventuali 
giocatori mancanti saranno guidati 
dal TI. Se il numero dato è diverso 
da zero seguirà la richiesta dei nomi 
dei giocatori che verranno stampati 
sopra il capitale individuale. 

A questo punto vengono distribuite 
le prime due carte e appare la scritta 
“STO PENSANDO”. Scomparsa 
questa, si può dar via alle giocate e 
ad eventuali rilanci. 

Il giocatore indicato dall’asterisco 
può: 

1) guardare la propria carta coperta 
premendo il tasto H; 

2) ricoprire la prima carta dopo 
averla guardata premendo il tasto S; 

3) affidare la decisione al computer 
premendo il tasto A; 

4) rinunciare al gioco, cioè passare, 
premendo il tasto P; 


5) vedere il rilancio di un altro gioca¬ 
tore premendo il tasto V; 

6) battere o “fare cip” premendo il 
tasto V; 

7) rilanciare premendo il tasto R e 
digitare l’importo del rilancio usan¬ 
do i tasti numerici. Nel caso in cui ci 
si sbagli basta premere il tasto 
(punto) per annullare la cifra intro¬ 
dotta. 

Naturalmente il piatto stampato in 
alto e al centro dello schermo e la 
dote di ogni giocatore vengono ag¬ 
giornati automaticamente. 

Se rimane in gioco un solo giocatore 
questo è ovviamente il vincitore, al¬ 
trimenti il computer provvede a in¬ 
dicare il vincitore sullo schermo. 


Matrici usate 

SEGNO (i) - Indica il codice del 
simbolo i-esimo. Si sottolinea che il 
sette è il primo carattere, l’asso l’ot¬ 
tavo. Per il dieci è stato adottato il 
carattere D. 

Z (i) - Indica il codice dell’-iesimo 
seme. Si precisa che cuori è il primo 
seme, quadri il secondo e così via. 
COLORE (i, j) - Indica quante carte 
del j-esimo seme possiede il giocato- 


“Come giocare a Poker 
contro il Texas TI99 
e rischiare di perdere” 

di Giuseppe Persiano 

L o Stid Poker ricalca, fatte 
poche eccezioni, un gio¬ 
chino derivato dal Poker 
chiamato Telesa secca, che si gioca 
in quattro, con le carte dal sette al¬ 
l’asso. Le regole sono semplici: in¬ 
nanzitutto viene data a ciascuno una 
carta coperta, che rimane tale du¬ 
rante tutto il gioco, in seguito quat¬ 
tro scoperte. Si può scommettere o 
rilanciare dopo la distribuzione di 
ciascuna carta scoperta (non dopo 
la prima). 

Dopo aver distribuito l’ultima carta 
(e rilanciato) si scopre la carta co¬ 
perta di ciascun giocatore ancora in 
gioco per proclamare il vincitore. 

Il meccanismo dei punti è analogo al 
Poker normale. 

Lo Stid Poker è diverso dalla Telesa 
perché il primo a parlare, in ogni 
turno, è chi ha effettuato l’ultimo 
rilancio da quello precedente o, se ci 

Listato 1. Il programma BASIC. 

1 OPTION BASE 1 
2 DIM RIGA(4),COLONNA(4),DOS(4,5 
),PASSO(4),SEGNO(8),CU(4,8),V(4) 
, COM(4),SEMI(4),B$(4),Pi(4),C ( 4 , 
5) , S ( 4,5 ) , Z ( 4) 

3 DIM VERSA( 4 ) ,DOTE(4),COLORE(4, 
5),ROS(4,8),CARTA(8) 

4 CALL CLEAR 

5 FOR 1=1 TO 4 

6 READ RIGA(I)/COLONNA(I) 

7 FOR B=1 TO 5 
8 READ DOS( I, B) 

9 NEXT B 
10 NEXT I 

11 CALL CHAR(105,"DCDCDCDCDCDCDC 


DC 

’) 


12 

CALL 

COLOR(15,7,16) 

13 

CALL 

COLOR(16,2,16) 

14 

CALL 

SCREEN(5) 

15 

CALL 

CHAR(97,"0 0") 

16 

READ 

SEGNO(1) 

17 

FOR T= 2 TO 8 

18 

READ 

SEGNO(T) 

19 

CALL 

COLOR(T,2,16) 

20 

NEXT 

T 

21 

CALL 

COLOR(9,7,16) 

22 

CALL 

CHAR(144,"0066FFFFFF7E3C 

18 

") 


23 

CALL 

CHAR(145,"183C7EFFFF7E3C 

18 

' ) 
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Seguito listato 1. 

24 CALL CHAR(153,"183C7EFFFF5Al8 
18") 

25 CALL CHAR(152,"183C185AFF5A18 
18") 

26 READ Z(1),Z(2),Z(3),Z(4),A$,D 

$ 

27 FOR 1=1 TO 20 

28 CALL HCHAR(12,5+1,ASC(SEG$(A$ 

, 1 , 1 ) ) ) 

29 NEXT I 

30 CALL KEY(5,K,N) 

31 IF N= 0 THEN 30 

32 IF K=13 THEN 37 

33 IF (K<48)+(K>52)THEN 30 

34 CALL HCHAR(12,26,K) 

35 Kl=K 

36 GOTO 30 

37 FOR I=Kl-47 TO 4 

38 COM(I)=1 

39 NEXT I 

41 FOR Y=1 TO Kl-48 

42 PRINT "NOME";Y, 

43 INPUT B$(Y) 

44 NEXT Y 

45 DEF INC4(B)=-(B+l)*(B+l<>5)-( 
B+l=5) 

46 FOR W=1 TO 4 

47 DOTE(W)=1000 

48 GOSUB 17000 

49 GOSUB 20000 

50 NEXT W 

140 CALL HCHAR(17,4,32,285) 

141 CALL HCHAR(5,4,32,285) 

142 PIATTO= 0 

143 GOSUB 19000 

144 FOR 1=1 TO 4 

145 FOR B=1 TO 8 

146 CU (I,B)=1 

147 NEXT B 

148 V(I)=1 

149 SEMI(I)=0 

150 NEXT I 

151 FOR A=1 TO 5 

152 FOR F=1 TO 4 

153 C(F,A)=0 

154 S(F,A)=0 


Seguito listato 1. 

155 COLORE(F,A)=0 

156 NEXT F 

157 NEXT A 

158 FOR G=1 TO 8 

159 FOR T=1 TO 4 

160 ROS(T,G)=0 

161 NEXT T 

162 CARTA(G)=0 

163 NEXT G 

164 M= 0 

165 ULT=1 

166 ANDATI = 0 

167 REM FINE INIZIALIZZAZIONE V 
ARIABILI 

994 REM INIZIO PROGRAMMA PRINCI 
PALE 

995 M=M+1 

996 CALL HCHAR(5,1,32,64) 

997 CALL HCHAR(17,1,32,64) 

1000 FOR GIOC=1 TO 4 

1002 PASSO(GIOC)=0 

1005 IF V(GIOC)=0 THEN 1071 

1010 RANDOMIZE 

1015 C(GIOC,M)=INT(RND* 8)+1 

1020 RANDOMIZE 

1025 S(GIOC,M)=INT(RND*4)+1 

1030 IF CU(S(GIOC,M) ,C (GIOC,M) ) = 

0 THEN 1010 

1035 CU(S(GIOC,M),C(GIOC,M))=0 

1040 IF M=1 THEN 1060 

1045 REM AGGIORNAMENTO VARIABIL 

I 

1050 SEMI(S(GIOC,M))=SEMI(S(GIOC 

, M ))+1 

1055 CARTA(C(GIOC,M))=CARTA(C(Gl 
OC,M))+1 

1060 ROS(GIOC,C(GIOC,M))=ROS(GIO 
C,C (GIOC,M) )+1 

1065 COLORE(GIOC,S(GIOC,M))=COLO 
RE(GIOC,S(GIOC,M))+1 

1070 GOSUB 13000 

1071 NEXT GIOC 

1072 IF M=1 THEN 995 

1073 FOR Q=1 TO 12 

1074 CALL HCHAR(14,8+Q,ASC(SEG$( 
D$ ,Q , 1) ) ) 
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Seguito listato I. 

10 7 5 NEXT Q 

1076 FOR GIOC=1 TO 4 

1077 IF V(GIOC)=0 THEN 1080 

1078 ON M-l GOSUB 23000,23100,23 
100,23300 

1080 NEXT GIOC 

1081 CALL HCHAR(14,9,32,12) 

1082 W=ULT 

1083 CALL VCHAR(RIGA(W)+2,DOS(W, 
1)+3,42,4) 

1084 ON COM(W)+1 GOSUB 25000,260 
00 

1085 CALL VCHAR(RIGA(W)+2,DOS(W, 
1)+3,32,4) 

1086 W=INC4(W) 

1096 IF ANDATI<3 THEN 1110 
1101 VIN=ULT 
1104 GOSUB 28000 
1107 GOTO 140 

1110 IF V(W)=0 THEN 1086 

1111 IF WOULT THEN 1083 
1113 IF M< 5 THEN 99 5 
1116 FOR F=1 TO 4 

1119 IF V(F)=0 THEN 1125 

1122 GOSUB 14999 

1123 Pi(F)=10*MAX+DOR 
1125 NEXT F 

1128 GOSUB 27000 
1131 GOSUB 28000 
1134 GOTO 140 

1137 REM *FINE PROGRAMMA PRINCI 
PALE* 

12997 REM =================== 

12998 REM ROUTINE GRAFICA 

12999 REM =================== 

13000 IF M=1 THEN 13035 

13005 FOR R=DOS(GIOC,M)TO DOS(Gl 
OC,M)+2 

13010 CALL VCHAR(RIGA(GIOC)+2,R, 
97,4) 

13015 NEXT R 

13020 CALL HCHAR(RIGA(GIOC)+2,DO 
S(GIOC,M),SEGNO(C(GIOC,M))) 

13025 CALL HCHAR(RIGA(GIOC)+5,DO 
S(GIOC,M),Z(S(GIOC,M))) 

13030 RETURN 

13035 FOR R=DOS(GIOC,1)TO DOS(GI 
OC,l) +2 

13040 CALL VCHAR(RIGA(GIOC)+2,R, 
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105,4) 


13045 

NEXT R 

13050 

RETURN 

14947 

REM - 

14948 

REM ROUTINE RICONOSCIMENT 

O PUNTI 


K£jjyi- 

14950 

ROS(F,C(F,1))=ROS(F,C(F,1) 

)-l 


14955 

P=1 

14960 

GOSUB 14999 

14965 

P=0 

14975 

ROS (F,C (F, 1) )=ROS(F,C(F,l) 

)+l 


14980 

RETURN 

14999 

MAX= 0 

15000 

FOR HC=1 TO 8 

15001 

IF ROS(F,HC)>=2 THEN 15004 

15002 

NEXT HC 

15003 

ON P+l GOTO 15028,15014 

15004 

MAX= 1 

15005 

DOR=HC 

15006 

FOR HD=HC+1 TO 8 

15007 

IF ROS(F,HD)>=2 THEN 15010 

15008 

NEXT HD 

15009 

GOTO 15021 

15010 

MAX = 2 

15011 

DOR=HD 

15012 

IF ROS(F,HC)=3 THEN 15018 

15013 

IF ROS(F,HD)=3 THEN 15015 

15014 

RETURN 

15015 

DOR=HD 

15016 

MAX =5 

15017 

RETURN 

15018 

DOR=HC 

15019 

MAX =5 

15020 

RETURN 

15021 

IF ROS(F,HC)>=3 THEN 15023 

15022 

RETURN 

15023 

MAX= 3 

15024 

IF ROS(F,HC)=4 THEN 15026 

15025 

RETURN 

15026 

MAX=6 

15027 

RETURN 
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Seguito listato l. 

15028 FOR HS=1 TO 4 

15029 IF (ROS(F,HS)=1)*(ROS(F,HS 
+1)=1)*(ROS(F,HS+2)=1)*(ROS(F,HS 
+3)=1)*(ROS(F,HS+4)=1)THEN 15032 

15030 NEXT HS 

15031 GOTO 15034 

15032 MAX=4 

15033 DOR=HSC 

15034 FOR HCL=1 TO 4 

15035 IF COLORE(F,HCL)=5 THEN 15 
038 

15036 NEXT HCL 

15037 IF MAX = 0 THEN 15044 ELSE 1 
5039 

15038 MAX=MAX+ 6 

15039 RETURN 
15044 FOR Y=1 TO 5 

15046 DOR--DOR*(C(F,Y)<DOR)-C(F, 
Y)*(C(F,Y)>DOR) 

15048 NEXT Y 
15050 RETURN 

16997 REM ================== 

16998 REM ROUTINE DI STAMPA DOT 
I 

16999 REM ================== 

17000 A$=STR$(DOTE(W)) 

17005 IF LEN(A$)> = 4 THEN 17020 
17010 A$ = "0"&A$ 

17015 GOTO 17005 

17020 FOR 1=1 TO LEN(A$) 

17025 CALL HCHAR(RIGA(W)-3,COLON 
NA(W)+1,ASC(SEG$(A$,I,1))) 

17030 NEXT I 
17035 RETURN 

18997 REM ================= 

18998 REM ROUTINE STAMPA PIATTO 

18999 REM ================= 

19000 A$=STR$(PIATTO) 

19005 IF LEN(A$)>=4 THEN 19020 
19010 A$ = "0"&A$ 

19015 GOTO 19005 

19020 FOR 1=1 TO LEN(A$) 

19025 CALL HCHAR(1,12+1,ASC(SEG$ 

(A$,I,1) ) ) 

19030 NEXT I 
19035 RETURN 

19997 REM ================= 

19998 REM ROUTINE STAMPA NOMI 

19999 REM ================= 



Seguito listato 1. 

20000 FOR D=1 TO LEN(B$(W)) 

2 0005 CALL HCHAR(RIGA(W)- 4,COLON 
NA(W)+D,ASC(SEG$(B$(W),D,1))) 
20010 NEXT D 
20015 RETURN 

22999 REM ================= 

23000 REM CALCOLO DI PASSO(GIOC 
) PER M= 2 

23001 REM ================= 

23002 FOR CA=1 TO 8 

23004 IF ROS(GIOC,CA)=0 THEN 230 
08 

23006 PASSO(GIOC)=PASSO(GIOC)+(R 
OS(GIOC,CA)-0.5)"2*CA/4+(4-CARTA 
(CA))"2-25*(ROS(GIOC,CA)=2) 

23008 NEXT CA 
23010 RETURN 

23097 REM ================== 

23098 REM CALCOLO DI PASSO(GIO 
C) M= 3 M= 4 

23099 REM ================== 

23100 FOR F=1 TO 4 

23101 IF V(F)=0 THEN 23104 

23102 ON -(F=GIOC)+1 GOSUB 14950 
,14999 

23103 PI(F)=10*MAX+DOR 

23104 NEXT F 

23105 IF M=4 THEN 23112 

23106 FOR H=1 TO 8 

23108 IF ROS(GIOC,H)=0 THEN 2311 
1 

23110 PASSO(GIOC)=PASSO(GIOC)+(( 
ROS(GIOC,H)- 1) ~2*H/4+(4-CARTA(H) 
/3)~2)/9 

23111 NEXT H 

23112 PASSO(GIOC)=PASSO(GIOC)+7* 
(PI(1)>P1(GIOC))+7*(PI(2)>P1(GIO 
C) )+7 *(PI(3)>P1(GIOC) )+P1(GIOC)* 
2 

23114 PASSO(GIOC)=PASSO (GIOC)+7* 
(PI(4)>P1(GIOC)) 

23116 RETURN 

23297 REM ================ 

23298 REM CALCOLO DI PASSO(GIOC 
) M= 5 

23299 REM ================== 

23300 FOR F=1 TO 4 


31 
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23302 IF V(F)=0 THEN 23306 

23304 ON (F=GIOC)+2 GOSUB 14999, 
14950 

23305 PI(F)=10*MAX+DOR 

23306 NEXT F 

23308 PASSO(GIOC)=PASSO(GIOC)+10 
0*(PI(1)>P1(GIOC))+100*(PI(2)>P1 
(GIOC))+100*(PI(3)>P1(GIOC)) 
23310 PASSO(GIOC)=PASSO(GIOC)+10 
0*(PI(4)>P1(GIOC))+3*P1(GIOC) 
23312 RETURN 

24997 REM ================= 

24998 REM ROUTINE DI DECISIONE 

24999 REM ================= 

25000 CALL KEY(5,K,N) 

25002 IF N= 0 THEN 25000 

25004 IF (K<>86)*(K<>82)*(K<>80) 
*(K<>65)*(K<>72)*(K<>83)THEN 250 
00 

25006 ON -1*(K = 72)- 2 * (K = 83)-3*(K 
= 65)-4*(K=8 0)-5*(K = 82)-6*(K = 86)G 
OTO 25008,25022,25032,25064,2503 
7,25068 

25008 FOR R=DOS (W, 1) TO DOS(W,l) + 
2 

25010 CALL VCHAR(RIGA(W)+2,R,97, 
4) 

25012 NEXT R 

25014 CALL VCHAR(RIGA(W)+2,DOS(W 
,1) ,SEGNO (C (W,l) ) ) 

25016 CALL HCHAR(RIGA(W)+5,DOS(W 
,1) , Z ( S ( W, 1 ) ) ) 

25018 GOTO 25000 

25022 FOR R=DOS(W,l)TO DOS(W,l)+ 
2 

25024 CALL VCHAR(RIGA(W)+2,R,105 
,4) 

25026 NEXT R 
25028 GOTO 25000 

25032 ON M-l GOSUB 26050,26100,2 

6300,26500 

25034 RETURN 

25037 CALL HCHAR(RIGA(W)-2,COLON 
NA(W),32,5) 

25038 A$ = "" 

25040 Z1=0 

25041 CALL KEY(5,K,N) 

25042 IF N= 0 THEN 25041 

25043 IF K=46 THEN 25037 
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25045 IF K=13 THEN 25058 

25046 IF (K<48)+(K>57)THEN 25041 

25050 CALL HCHAR(RIGA(W)- 2,COLON 
NA(W)+Z1,K) 

25052 A$ =A$&CHR$(K) 

25054 Z1=Z1+1 
25056 GOTO 25041 
25058 RIL=VAL(A$) 

25060 GOSUB 30200 
25062 RETURN 
25064 GOSUB 30000 
25066 RETURN 
25068 GOSUB 30100 
25070 RETURN 

25097 REM ================= 

25098 REM ROUTINE DI DECISIONE 
AUTOMATICA 

25099 REM ================= 

26000 ON M-l GOSUB 26050,26100,2 
6300,26500 

26005 RETURN 

26050 IF PASSO(W)>=13 THEN 26059 

26053 GOSUB 30000 
26056 RETURN 

26059 IF PASSO(W)>=30 THEN 26068 

26063 ON -(VERSA(W)<=PASSO(W))-2 
*(VERSA(W)>PASSO(W))GOSUB 30100 
30000 

26065 RETURN 

26068 A=RND*100 

26071 IF A>=65 THEN 26080 

26074 GOSUB 30100 

26077 RETURN 

26080 RIL=INT(PASSO(W)/8)+2 
26083 GOSUB 30200 
26089 RETURN 

26100 IF PASSO(W)<35 THEN 26108 

26102 RIL=INT(PASSO(W)/16)+2 
26104 GOSUB 30200 
26106 RETURN 

26108 IF PASSO(W)>20 THEN 26114 

26110 GOSUB 30000 
26112 RETURN 

26114 ON -(VERSA(W)>PASSO(W)/4)— 
2*(VERSA(W)<=PASSO(W)/4)GOSUB 30 
000,30100 
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26116 RETURN 



27030 RETURN 

26300 ON -(PASSO(W)<0)+2*((PASSO 



28000 A$ = "VINCE" 

(W)>=0)*(PASSO(W)<30))-3*(PASSO( 



28001 DOTE(VIN)=DOTE(VIN)+PIATTO 

W)>=30)GOTO 26302,26306,26309 




26302 GOSUB 30000 



28002 CALL HCHAR(RIGA(VIN)-1,COL 

26304 RETURN 



ONNA(VIN),42,13) 

26306 ON -(VERSA(W)<PASSO(W)/5)- 



28004 FOR 1=1 TO 5 

2*(PASSO(W)< = 5*VER3A(W))GOSUB 30 



28006 CALL HCHAR(RIGA(VIN)-1,COL 

100,30000 



ONNA(VIN)+3+I,ASC(SEG$(A$,I,1))) 

26308 RETURN 




26309 RIL=INT(PASSO(W)/20)+1 



28008 NEXT I 

26310 ON -(VERSA(W)>PASSO(W)/3)- 



28010 IF ANDATI=3 THEN 28028 

2*(VERSA(W)<=PASSO(W)/3)GOSUB 30 



28014 FOR W=1 TO 4 

100,30200 



28016 IF V(W)=0 THEN 28027 

26312 RETURN 



28018 FOR R=DOS ( W, 1) TO DOS(W,l) + 

26500 IF PASSO(W)>=33 THEN 26506 



2 




28020 CALL VCHAR(RIGA(W)+2,R,97, 

26502 GOSUB 30000 



4) 

26504 RETURN 



28022 NEXT R 

26506 IF VERSA(W)SPASSO(W)/IO TH 



28024 CALL HCHAR(RIGA(W)+5,DOS(W 

EN 26514 



,1) , Z ( S (W , 1) ) ) 

26508 GOSUB 30100 



28026 CALL HCHAR(RIGA(W)+2,DOS(W 

26510 RETURN 



, 1) ,SEGNO (C (W, 1) ) ) 

26514 RIL=INT(PASSO(W)/15) 



28027 NEXT W 

26516 ON -(PASSO(W)>50)-2*(PASSO 



28028 W=VIN 

(W)<=50)GOSUB 30200,30100 



28030 GOSUB 17000 

26518 RETURN 



28032 CALL KEY(5,K,N) 

26999 REM ROUTINE RICONOSCIMENT 



28034 IF N=0 THEN 28032 

O VINCITORE 



28036 RETURN 

27000 FOR T=1 TO 4 



29997 REM -- 

27003 IF V(T)=0 THEN 27024 



29998 REM ROUTINE DI PASSO 

27006 FOR B=1 TO 4 



29999 REM - 

27009 IF V(B)=0 THEN 27015 



30000 IF VERSA(W)=0 THEN 30104 

27012 IF PI(T)<P1(B)THEN 27024 



30002 VERSA(W)=0 

27015 NEXT B 



30003 V(W)=0 

27018 VIN=T 



30004 A$ = "PASSO" 

27021 RETURN 



30005 ANDATI=ANDATI+1 

27024 NEXT T 



30006 CALL HCHAR(RIGA(W)-1,COLON 

27027 VIN=ULT 



NA(W),32,9) 


re i. 

ROS (i, j) - Indica quante carte col 
j-esimo simbolo possiede il giocato¬ 
re i. 

C (i, j) - Indica il simbolo riportato 
sulla j-esima carta del giocatore i. 

S (i, j) - Indica il seme della j-esima 
del giocatore i. 

SEMI (i) - Indica quante carte col 
seme i sono già uscite, escludendo le 
carte coperte. 

CARTA (i) - Riporta il numero di 


carte col simbolo i-esimo già uscite, 
escludendo le carte coperte. 

V (i) - Se V (i) = 1 allora il giocatore 
i-esimo è ancora in gioco altrimenti 
ha rinunciato al gioco. 

CU (i, j) - Se CU (i, j) = 1 allora la 
carta di seme i e simbolo j è già stata 
distribuita. 

COM (i) - Se COM (i) = 1 allora il 
giocatore i è guidato da TI; B$ è la 
matrice che contiene i nomi. 

PI - Contiene i codici dei punti di 


ciascun giocatore; più è alto il valore 
nel corrispondente indice, più è alto 
il punto del giocatore. 

Le matrici RIGA, COLONNA, 
DOS contengono dei valori di riferi¬ 
mento per la grafica. 

La matrice PASSO contiene un va¬ 
lore per ciascun contendente che in¬ 
dica le possibilità di vincita di cia¬ 
scun giocatore. 

VERSA, DOTE sono matrici che 
indicano rispettivamente quanto de- 
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30008 

FOR AD = 0 TO LEN(A$)- 1 

30010 

CALL HCHAR(RIGA(W)-1,COLON 

NA(W)+AD,ASC(SEG$(A$, 

AD+1,1))) 

30012 

NEXT AD 


30014 

RETURN 


30097 

REM ========== 

-- 

30098 

REM ROUTINE DI 

VEDO 

30099 

REM - 


30100 

DOTE(W)=DOTE(W) 

-VERSA(W) 

30101 

IF VERSA(W)=0 THEN 30104 

30102 

A$="0.K." 


30103 

GOTO 30105 


30104 

A$="CIP" 


30105 

PIATTO=PIATTO+VERSA(W) 

30106 

GOSUB 30006 


30107 

GOSUB 17000 


30108 

GOSUB 19000 


30109 

VERSA(W)=0 


30110 

RETURN 


30197 

REM ========== 


30198 

REM ROUTINE OI 

RILANCIO 

30199 

REM - 



Seguito listato 1. 

30200 A$ = "RILANCIO" 

30201 ULT=W 

30202 GOSUB 30006 

30203 PASSO(W)=PASSO(W)-2*M-2 

30204 A$=STR$(RIL) 

30205 CALL HCHAR(RIGA(W)- 2,COLON 
NA(W),32,8) 

30206 FOR AD=1 TO LEN(A$) 

30208 CALL HCHAR(RIGA(W)- 2,COLON 

NA(W)+AD,ASC(SEG$(A$,AD,1))) 

30210 NEXT AD 

30212 FOR AC=1 TO 4 

30214 VERSA(AC)=V(AC)*(VERSA(AC) 

+RIL) 

30216 NEXT AC 

30217 PIATTO=PIATTO+VERSA(W) 

30218 DOTE(W)=DOTE(W)-VERSA(W) 

30220 VERSA(W)=0 

30221 GOSUB 19000 

30222 GOSUB 17000 
30224 RETURN 

31000 DATA 7,4,3,8,10,12,14,7,20 
,19,24,26,28,30,19,4,3,8,10,12,1 
4,19,20 

31010 DATA 19,24,26,28,30,55,56, 
57,68,74,81,75,65,144,145,153,15 
2,"QUANTI SIETE? (0-4) ","STO PE 
NSANDO" 


ve pagare un giocatore per giocare e 
quanto gli è rimasto. 

Commento al listato 

1-24 Dimensionamento delle ma¬ 
trici, definizione dei caratteri grafi¬ 
ci, inizializzazione. 

27-44 Richiesta del numero dei gio¬ 
catori. La linea 33 è stata inserita per 
evitare l’inserimento di valori errati. 
Richiesta del nome dei giocatori. 

45 Definisce l’addizione del modulo 
4. 

46-167 Azzera i contenuti delle ma¬ 
trici per iniziare una nuova partita. 
996-997 Cancella la parte di scher¬ 
mo in cui erano riportati i rilanci del 
precedente turno. 

1000-1071 Distribuisce la carta e ag¬ 
giorna i contenuti delle matrici SE¬ 
MI, CARTA, COLORE, ROS. 
1073-1134 Dà la parola ai giocatori 
ancora in gioco, chiama la routine di 
decisione automatica, verifica che 
non siano in gioco meno di due gio¬ 
catori altrimenti proclama vincitore 
l’ultimo giocatore rimasto. 

13000 Routine grafica; visualizza le 


carte man mano che vengono gene¬ 
rate; se si è alla prima carta ne stam¬ 
pa il dorso. 

14950 Questa routine viene usata 
per riconoscere i punti dei giocatori; 
se chiamata dalla riga 14950 nascon¬ 
de la prima carta; tale evenienza si 
presenta quando la routine viene 
chiamata dalla routine decisionale 
di un altro giocatore per vedere il 
punto esibito dalle carte scoperte. 
17000-19000 Visualizzano la dote, il 
nome di ciascun giocatore nonché 
l’ammontare del piatto. 
23000-23312 Queste routine servo¬ 
no per il calcolo dei valori della ma¬ 
trice PASSO; per tali calcoli si tiene 
conto delle proprie carte, di quelle 
degli altri giocatori (escludendo 
quelle coperte), dei punti esibiti da¬ 
gli altri giocatori (a tal fine viene 
chiamata la routine 14950). 

25000 Mediante una CALL KEY 
viene interrogata la tastiera per co¬ 
noscere la decisione dei giocatori. 
26000-26520 Queste routine serven¬ 
dosi dei valori della matrice PASSO, 
decidono la strategia di gioco di cia¬ 
scun giocatore guidato dal TI; oltre 


che della matrice PASSO viene te¬ 
nuto conto anche della matrice 
VERSA che indica quanto deve ver¬ 
sare ciascun giocatore per restare in 
gioco. 

30000 Queste ultime routine vengo¬ 
no chiamate dalle routine decisiona¬ 
li per rendere noto il comportamen¬ 
to di ciascun giocatore (cioè se rilan¬ 
cia, se vede oppure passa) e aggior¬ 
nano i valori del piatto, dalle matrici 
VERSA, V, DOTE a seconda degli 
sviluppi del gioco. 

Come appare evidente, s’é fatto lar¬ 
go uso dei valori attribuiti ad ogni 
espressione relazionale dal compu¬ 
ter, a secondo se questa è vera oppu¬ 
re falsa; in tal modo s’è potuto simu¬ 
lare l’istruzione di salto condiziona¬ 
to nelle subroutine condizionato. 
Non tutti sappiamo che il TI BASIC 
non accetta una linea del genere: 100 
IF A = 4 THEN GOSUB 200 ELSE 
GOSUB 300; ma possiamo scrivere: 
100 ON - (A = 4) - 2 ★ (A 4) 
GOSUB 200, 300; 
in più, il confronto si può estendere 
anche a più di una condizione, come 
fatto alla linea 26300. ■ 
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Il gioco come metodo 
d’apprendimento del BASIC 
e dei mìcrocomputer 
324 pag. L. 20.000 
Cod. 522A 

PROGRAMMI SCIENTIFICI 
IN PASCAL 

Per costruirsi una '‘libreria" 
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risolvere i più frequenti 
problemi scientifici e 
ingegneristici 
384 pag. L. 25.000 
Cod. 554P 

DAL FORTRAN IV 
AL FORTRAN 77 

Per chi deve programmare 
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e per chi vuole 
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266 pag. L. 18.000 
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Libri firmati JACKSON 


IL BASIC DEL PET 
E DELL M20 
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232 pag. L. 16.000 
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FORTH PER VIC 20 
E CBM 64 

Il libro spiega la 
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a livello di personal 
computer. 

156 pag. L. 11.000 
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La Biblioteca che fa testo 


IL BASIC PER TUTTI 

Per i neofiti una facile e 
immediata introduzione al 
linguaggio BASIC e al 
mondo dei calcolatori 
264 pag. L. 17.500 
Cod. 525A 

50 ESERCIZI IN BASIC 

Una raccolta completa e 
progressiva di .esercizi 
matematici, gestionali, 
operativi, statistici, di svago 
208 pag. L. 13.000 
Cod. 521A 
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ioco della Scopa a 3 carte 


— Parte prima — 


Un gioco 

tipicamente italiano 
per PET/CBM e C 64 

di Stefano Guarinelli 

Introduzione 

1 1 gioco della Scopa a 3 
carte non possiede intrin¬ 
secamente una strategia ri¬ 
solubile con procedimenti numerici 
rigorosi. 

Si tratta di un gioco dove l’imprevi¬ 
sto e la fortuna svolgono un ruolo 
determinante ai fini dell’esito di 
ogni partita. Sbaglia perciò colui 
che ritiene che anche un computer, 
in certi ambienti ritenuto ancora on¬ 
nipotente, riesca a distriscarsi in si¬ 
tuazioni quanto meno “impossibili” 
(per esempio: tre carte uguali in ma¬ 
no). Inoltre, in genere, alla macchi¬ 
na manca un certo grado di fantasia, 
che non nuocerebbe davvero, per un 
certo tipo di problemi come questo, 
dove il caso ha il suo peso. 

Quello che mi accingo a descrive¬ 
re è perciò un algoritmo che, più che 
aver la pretesa di essere un avversa¬ 
rio imbattibile, offre piuttosto uno 
spunto in più, seppur modesto, per 
quel grossissimo capitolo della ri¬ 
cerca attuale in ambito informatico 
che è l’Intelligenza Artificiale. Si 
tratta cioè di riuscire in qualche mo¬ 
do a tradurre dei processi mentali 
umani in procedimenti numerici o 
pseudonumerici, che consentano al¬ 
la macchina di ricostruire il medesi¬ 
mo ragionamento, ma soprattutto 
di produrre gli stessi effetti esterni di 
quel ragionamento. 

Ai giocatori di Scopa più accaniti 
posso solo dire che, date le mie scar¬ 
sissime qualità di giocatore, nel pro¬ 
gramma non ho tenuto conto di una 


MZ 

vettore-codice 

MI 

vettore-valore 

significato 


1 

32 

30 

18 

27 

J 


1 

2 

10 

8 

7 

J 

Asso 

2 

Re 

Fante 

7 

♦ 

♦ 

♦ 

V 

♦ 


Figura 1. Struttura degli array del mazzo di carte. 


serie di micidiali trucchetti numerici 
della cui esistenza sono venuto a co¬ 
noscenza indirettamente e solo re¬ 
centemente. Tuttavia la cosa non ha 
grandissima importanza, soprattut¬ 
to in relazione agli obiettivi che desi¬ 
deravo raggiungere: infatti, l’obiet¬ 
tivo, a mio avviso, più arduo da ot¬ 
tenere era quello di convertire dei 
problemi non numerici in numerici; 
il costruire cioè, in qualche modo, 
una struttura dati efficiente su cui si 
appoggiasse un certo modo di ragio¬ 
nare “simulato”. 

È chiaro, a questo punto, che il 
raffinamento strategico del pro¬ 
gramma, mediante l’inserimento di 
istruzioni che rappresentano la riso¬ 
luzione numerica di problemi intrin¬ 
secamente numerici, non rappresen¬ 
ta un grosso problema e credo che 
l’impostazione data aH’algoritmo lo 
consenta pienamente, come si potrà 
vedere, in seguito, nella descrizione 
dettagliata dei singoli sottopro¬ 
grammi. 

C’è tuttavia, a questo proposito, an¬ 
cora un piccolo problema: per ridur¬ 
re al minimo l’occupazione di me¬ 
moria sono stato costretto a ridurre 
all’essenziale (ma forse anche meno) 
il numero dei commenti interni (RE- 
Marks). Ciò nonostante il numero 
di byte occupati dal programma è di 
circa 30000. Pertanto, chi volesse 
migliorarne la competitività, con i 
trucchetti cui accennavo prima, do¬ 
vrà verificare lo spazio di memoria 
necessario che pur non costituendo 
sicuramente motivo di preoccupa¬ 
zione per gli utenti del Commodore 


64, lo è invece per i possessori di un 
4032 CBM, ai quali non restano che 
1,7 Kbyte circa di memoria libera. 
Naturalmente, i più pazienti potran¬ 
no sempre ricopiare il programma 
eliminando gli spazi bianchi nelle 
istruzioni, le poche REM e la pre¬ 
sentazione iniziale. Io però non ho 
ritenuto opportuno farlo, al fine di 
non compromettere, nei limiti del 
possibile, la chiarezza del listato. 

Comunque, anche senza modifi¬ 
che, il programma, collaudato con 
giocatori migliori (o solo meno peg¬ 
giori?!) di me, ha dato in genere buo¬ 
ni risultati, spesso addirittura otti¬ 
mi. A volte il calcolatore, che ho 
ribattezzato Ubaldo o semplicemen¬ 
te UB, pur seguendo sempre la ovvia 
logica del programma, ha operato 
scelte che sono state giudicate dav¬ 
vero sorprendenti. 

In questa prima parte viene de¬ 
scritto il problema e vengono illu¬ 
strate le soluzioni scelte per rendere 
il calcolatore un abile giocatore di 
scopa. Nella seconda parte sarà 
pubblicato il listato del gioco per 
PET/CBM e C 64, preceduto da una 
descrizione dettagliata del program¬ 
ma per gruppi di linee. 

Struttura e codifica dei dati 

Prima di osservare la struttura 
dell’algoritmo sarà opportuno pre¬ 
mettere le modalità di rappresenta¬ 
zione dell’informazione all’interno 
dell’algoritmo stesso. 

Tutto ciò che in una normale partita 
a Scopa costituisce un insieme di 
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Gioco della Scopa 
a 3 carte 



Figura 2 Schema a blocchi generale dell’algoritmo. 
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carte (il mazzo, le carte uscite, le 
carte che ha il giocatore in mano, 
ecc...) all’interno del programma è 
rappresentato da vettori (array). 

In particolare, ogni gruppo di carte 
è rappresentato da due vettori. 

Si tratta di una struttura del tipo a 
record (per linguaggi più evoluti co¬ 
me il Pascal), ma che, anziché essere 
realizzata con strutture BASIC del 
tipo VETT (X,Y), ho preferito rea¬ 
lizzare mediante l’utilizzo di array 
“gemelli”. La ragione di questo 
sdoppiamento di informazione ri¬ 
siede nel fatto che ogni carta ha una 
sua identità ben precisa (un 3 di ori 
non equivale a un 3 di fiori), eppure 
per le operazioni di presa o, più in 
generale, per le operazioni di tipo 
numerico le carte diverse sono solo 
dieci (un 3 di ori equivale a un 3 di 
fiori). Pertanto ogni carta avrà una 
doppia codifica: una codifica seme- 
numero e una codifica numero. 

Il mazzo delle carte, pertanto, sarà 
strutturato come in figura 1. 

La struttura degli array che rap¬ 
presentano il mazzo, MZ ed MI, è 
del tutto generale e riguarda tutti gli 
array dove siano memorizzate delle 
carte. Inoltre, sempre dalla figura 1, 
si può desumere la codifica delle car¬ 
te (in MZ), che è del tipo seguente: 
da 1 a 10 ori, da 11 a 20 cuori, da 21 a 
30 fiori e da 31 a 40 picche. D’ora in 
poi, riferendoci a vettori strutturati 
come MZ ed M1, chiameremo quelli 
del primo tipo vettori-codice e quelli 
del secondo vettori-valore. 


Struttura del programma 

Il programma, nella sua struttura 
più generale, segue l’andamento di 
una normalissima partita a Scopa, 
come si può vedere in figura 2, dove 
sono cioè evidenziate una serie di 
operazioni in blocchi distinti. Natu¬ 
ralmente, lo schema di figura 1, vali¬ 
do per una partita dove il calcolato¬ 
re gioca “di mazzo”, non viene ap¬ 
plicato rigorosamente nel program¬ 
ma, nel senso che taluni blocchi, a 
livello astratto indicati come distin¬ 


ti, in realtà non lo sono affatto. Ci 
sono cioè alcuni sottoprogrammi, 
per esempio, che sono preposti a 
svolgere un certo insieme di opera¬ 
zioni relative a un blocco, che poco 
si discostano dalle operazioni realiz¬ 
zate da altri sottoprogrammi appar¬ 
tenenti ad un altro blocco. A questo 
punto, e direi con il solo scopo di 
ridurre, come al solito, l’occupazio¬ 
ne complessiva di memoria, è ovvia 
la sintesi di sottoprogrammi più ge¬ 
nerali che, con l’utilizzo di opportu¬ 
ni test interni, realizzino le operazio¬ 
ni relative ad entrambi i blocchi. 

Poiché però la sintesi delle funzio¬ 
ni, per così dire, simili viene fatta a 
posteriori, nella descrizione dell’al¬ 
goritmo considererò i blocchi come 
se essi fossero disgiunti. Si parlerà 
pertanto di blocchi virtuali e solo 
nella descrizione dettagliata del pro¬ 
gramma BASIC verranno conside¬ 
rate quelle che potremmo chiamare 
“risorse condivise”. 

In questa ottica, pertanto, lo schema 
a blocchi possiamo concettualmente 
spezzarlo in tre parti, come in figura 
3. 

I blocchi “Giocatore” e “Calcola¬ 
tore” sono gli stessi di figura 2, men¬ 
tre il blocco “Parti Accessorie” sta a 
significare “tutto il resto” e cioè le 
parti relative alla preparazione del 
mazzo, al disegno delle carte sullo 
schermo, al calcolo del punteggio e 
così via. Poiché in figura 2 sono de¬ 
scritti la successione e il collegamen¬ 
to dei blocchi, passerò a descriverli 
separatamente. 

Blocco “Giocatore” 

La parte di programma che in fi¬ 
gura 2 è indicata con il blocco “Gio¬ 
catore” ha il compito di gestire le 
interazioni con l’utente, avversario 
del calcolatore. 

Per “interazioni con l’utente” si in¬ 
tendono tutte le operazioni che un 
giocatore svolge durante una partita 
(la presa, lo scarto con relativa di¬ 
sposizione delle carte sul piatto, 
ecc...), che in questo caso saranno 
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Figura 3. Schema riassuntivo dei 
blocchi che compongono il program¬ 
ma 


affidate automaticamente al calco¬ 
latore. Il giocatore, infatti, dovrà li¬ 
mitarsi ad indicare le carte coinvolte 
nella presa o nello scarto. 

Per capire meglio le operazioni 
che deve svolgere l’utente, sarà op¬ 
portuno aprire una piccola parente¬ 
si che serve ad illustrare “cosa com¬ 
pare sullo schermo” durante la par¬ 
tita. Lo schermo viene diviso in 
quattro zone. Nella zona inferiore, 
contrassegnate con le lettere ABC, 
compaiono le carte del giocatore. Di 
fianco alle carte del giocatore c’è 
uno spazio destinato ai vari messag¬ 
gi rivolti all’utente, che il program¬ 
ma segnala in seguito a particolari 
condizioni (più avanti vedremo di 
quali messaggi si tratta). In alto a 
sinistra, in un piccolo riquadro, 
compare, di volta in volta, la carta 
giocata dal calcolatore. Il resto dello 
schermo è destinato a contenere il 
piatto, ogni carta del quale è con- 
trassegnata dalle lettere 
TUVWXYZ. Questo significa, fra 
l’altro, che il piatto, al massimo, può 
essere formato da sette carte. L’e¬ 
ventualità di un’ottava carta non 
viene considerata e pertanto la rela¬ 
tiva codifica viene, per così dire, per¬ 
duta. In realtà, a tale inconveniente 
si poteva ovviare in molti modi, ma 
poiché durante le normali partite, 
senza cioè la precisa intenzione di 
indurre il programma in errore, ciò 
non si è mai verificato, non ho rite¬ 
nuto opportuno realizzare un sotto¬ 
programma che sarebbe rimasto 
pressoché inutilizzato. 

Esaminata la disposizione del “ta¬ 
volo da gioco” possiamo passare a 
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descrivere le sole due operazioni che 
deve svolgere l’utente, e cioè la presa 
e lo scarto. 

Nel caso della presa il giocatore do¬ 
vrà indicare la lettera in corrispon¬ 
denza della quale si trova la carta 
con cui vuole prendere, seguita dalla 
lettera, o dalle lettere, delle carte del 
piatto che vuole prendere e quindi 
battere RETURN. 

Nel caso dello scarto si limiterà ad 
indicare la carta prescelta e batterà 
subito RETURN. 

A questo punto entra in funzione 
il blocco “Giocatore”, che realizza 
le funzioni indicate in figura 4. Da 
un punto di vista di rigorosità di 
scrittura non sarebbe corretto inse¬ 
rire il blocco START all’interno del 
diagramma, invece che all’inizio. In 
questo modo ho voluto però sottoli¬ 
neare il fatto che qualora il pro¬ 
gramma rilevi la presenza di un er¬ 
rore, l’utente è costretto a ripetere 
tutte le operazioni da capo, e solo al 
termine di queste ultime può riparti¬ 
re il blocco “Giocatore”, che esegue 
nuovamente le verifiche. 

Possiamo quindi passare all’esa¬ 
me del blocco “Giocatore” (figura 4). 
La diramazione iniziale è determi¬ 
nata da una variabile booleana 
(PR), che in maniera molto sempli¬ 
ce, come vedremo nell’esame detta¬ 
gliato delle istruzioni BASIC, preci¬ 
sa se si tratta di una presa o di uno 
scarto. 

• Verifica presa corretta. 

La verifica viene eseguita sui vettori- 
valore, controllando semplicemente 
che la carta giocata coincida con la 
somma delle carte prese. 

• Verifica presa minima. 

La verifica della presa minima pre¬ 
viene l’eventualità del seguente erro¬ 
re: supponiamo che il giocatore ab¬ 
bia in mano un Re e lo giochi in 
modo da prendere dal piatto un 6 e 
un 4, non accorgendosi però della 
presenza di un altro Re sul tavolo. 
La presa è numericamente corretta, 
ma il gioco della Scopa la considera 
non valida, in quanto la carta singo¬ 
la, ha sempre la priorità sulle combi¬ 
nazioni. 


La verifica, anche in questo caso, 
è molto semplice: se esiste sul piatto 
una carta il cui valore coincide con 
la somma delle carte scelte dal gio¬ 
catore per la presa, significa che 
questa non è minima e pertanto il 
programma segnala l’errore con il 
messaggio “Presa non valida”. 

• Verifica presa eventuale. 

Questa verifica previene l’even¬ 
tualità di uno scarto che in realtà 
avrebbe potuto essere una presa: il 
giocatore non si accorge che con la 
carta da lui scartata si poteva pren¬ 
dere. 

L’algoritmo risolutore è, in que¬ 
sto caso, più complesso di quelli re¬ 
lativi alle due verifiche precedenti. Il 
funzionamento può essere descritto 
nel seguente modo: non appena il 
test iniziale del blocco “Giocatore” 
ha precisato che l’utente intende 
scartare, un primo set di istruzioni 
va a verificare che il valore della 
carta scartata non coincida con il 
valore di una delle carte del piatto. 

Naturalmente, in questa fase, ma 
anche in quelle che seguono, non 
appena il test dà esito positivo (cioè 
esiste la presa) la verifica si conclu¬ 
de, in quanto non ha interesse, ov¬ 
viamente, conoscere tutte le possibi¬ 
li eventualità di presa, ma ne basta 
una; l’errore viene segnalato me¬ 
diante il messaggio “Obbligo di pre¬ 
sa”. Dopo la prima fase, se questa 
non ha dato naturalmente esito po¬ 
sitivo, si passa a una seconda che 
passa a verificare se la carta scartata 
può essere uguale alla somma del 
valore di due qualsiasi carte del piat¬ 
to. La verifica, in questo caso, avvie¬ 
ne nel seguente modo: un ciclo ester¬ 
no “blocca” di volta in volta una 
delle carte del piatto, mentre un ci¬ 
clo interno la addiziona a tutte le 
carte rimanenti, eseguendo per ogni 
somma il confronto con la carta 
scartata. Se anche questa fase dà esi¬ 
to negativo, si passa ad un ulteriore 
set di istruzioni, che questa volta 
ricerca se esiste una combinazione 
di tre carte che abbia lo stesso valore 
della carta scartata; quindi si passa 
ad una fase dove la combinazione 













Figura 4. Schema a blocchi della parte riservata al giocatore. 
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Figura 5. Schema a blocchi generale del ragionamento seguito dal calcolatore per preparare la propria mossa. 











































































































ricercata è di quattro carte. Il tipo di 
procedimento seguito è analogo a 
quello valido per due carte. Nel caso 
di tre carte saranno necessari tre ci¬ 
cli (il primo più esterno “blocca” 
una carta del piatto, il secondo 
“blocca” la somma di due carte, il 
terzo addiziona le due carte somma¬ 
te al ciclo precedente con tutte le 
altre, eseguendo contemporanea¬ 
mente il confronto con la carta scar¬ 
tata). Nel caso di quattro carte sa¬ 
ranno necessari quattro cicli. La ve¬ 
rifica su cinque carte non viene rea¬ 
lizzata e questo per due motivi: pri¬ 
ma di tutto perché la probabilità che 
si verifichi una simile eventualità è 
bassissima e in secondo luogo per¬ 
ché, come si vedrà anche nel pro¬ 
gramma BASIC, il livello di annida¬ 
melo dei cicli FOR-NEXT, e dei 
sottoprogrammi, sarebbe troppo 
elevato per la pila (stack) e indurreb¬ 
be facilmente in errori del tipo “Out 
of memory”. Si potrebbe ovviare a 
ciò sostituendo ai cicli FOR-NEXT 
degli analoghi IF-THEN GOTO, 
ma la chiarezza del listato BASIC, 
già di per sé non certo buona in 
questa parte del programma, risul¬ 
terebbe totalmente compromessa. 

Come già si può intuire dalla de¬ 
scrizione “a parole” di questo algo¬ 
ritmo, esistono notevoli problemi di 
efficienza e velocità di calcolo, per la 
risoluzione (parziale) dei quali si è 
reso necessario rendere l’algoritmo 
leggermente più complesso, pur re¬ 
stando inalterata la sua struttura lo¬ 
gica. Come al solito, esamineremo i 
dettagli nella descrizione delle istru¬ 
zioni BASIC. 

• Operazioni grafiche. 

Se tutte le verifiche precedenti han¬ 
no dato esito negativo, significa che 
la presa o lo scarto dell’utente erano 
in regola. 

Le cosiddette “Operazioni grafi¬ 
che” anche in questo caso saranno 
differenti, a seconda che si tratti di 
presa o scarto. Nel primo caso le 
carte coinvolte spariranno dallo 
schermo, nel secondo caso la carta 
coinvolta sparirà dalla zona riserva¬ 
ta al giocatore e comparirà sul piat¬ 


to. 

• Operazioni accessorie. 

Le operazioni accessorie in realtà si 
limitano al trasferimento di variabili 
dall’array che contiene le carte del 
giocatore (GC) a quello del piatto 
(PT), nel caso di scarto; dagli array 
del giocatore e del piatto a quello 
delle carte uscite (UC) e a quello 
delle carte prese dal giocatore (GP), 
nel caso di presa. 

Essendo le operazioni grafiche e ac¬ 
cessorie assai semplici da un punto 
di vista concettuale, non le appro¬ 
fondisco ulteriormente. 


Blocco “Calcolatore” 

La parte di programma indicata 
dal blocco “Calcolatore” è il cuore 
di tutto l’algoritmo, in quanto è 
quella cui viene affidato il compito 
di “parte intelligente”. Qualcuno 
potrebbe pensare che un suo even¬ 
tuale legame con il blocco “Gioca¬ 
tore” le consenta di barare, ma ciò 
in realtà non avviene, poiché non c’è 
nessuna istruzione all’interno del 
blocco che permetta al calcolatore 
di andare a sbirciare le carte del gio¬ 
catore. 

Esaminando lo schema a blocchi 
di figura 5 notiamo che esso è com¬ 
posto da tre fasi. Alla prima fase 
corrisponde la ricerca di tutte le pos¬ 
sibili prese associate ad una carta di 
quelle che ha in mano il calcolatore 
(UB). Alla seconda fase corrisponde 
la ricerca di tutte le possibili prese 
“future”. Per capire meglio cosa si 
intende per presa futura farò un 
semplice esempio: supponiamo che 
il calcolatore abbia in mano un 7 e 
un 3 e che sul piatto vi sia un 4. E 
ovvio che non vi è alcuna possibilità 
di presa, però può essere convenien¬ 
te scartare il 3, in quanto questo può 
facilitare, anche se in maniera pro¬ 
babilistica, la presa del 7 alla passata 
successiva. 

Alla terza fase corrisponde la ri¬ 
cerca di uno scarto opportuno, se le 
due fasi precedenti hanno rilevato 
che non esiste alcuna possibilità di 


prendere o di preparare la presa o 
che, seppur esistendo, essa è troppo 
rischiosa o non conveniente. 

• Prima fase: presa immediata. 

La parte di programma che selezio¬ 
na le possibili prese è, concettual¬ 
mente, molto semplice. Per ogni car¬ 
ta che il calcolatore ha in mano ven¬ 
gono verificate tutte le possibili 
combinazioni delle carte del piatto 
che coincidono con il valore numeri¬ 
co della carta in questione. Se la 
combinazione è utile, essa viene me¬ 
morizzata in un vettore (MP) strut¬ 
turato come in figura 6. Il vettore è 
destinato a contenere tutte le varie 
combinazioni di presa, anche futu¬ 
ra. Nella prima casella viene collo¬ 
cata una carta del calcolatore (UB) 
che ha dato verifica positiva, seguita 
dalla o dalle carte del piatto la cui 
somma coincide con il valore di UB, 
da uno 0 e dalla “convenienza”, cioè 
un numero calcolato in base a una 
serie di parametri, che vedremo in 
seguito, che specifica l’opportunità 
o meno di realizzare la mossa; quin¬ 
di un altro 0 segna il termine della 
sequenza e ne apre una nuova, che 
sarà strutturata in maniera identica 
alla prima. In sintesi, la fase di presa 
immediata la possiamo vedere, sem¬ 
plificata, come in figura 7. Come si 
può notare, il principio di verifica 
della presa è lo stesso che valeva per 
il sottoblocco “Presa eventuale” al¬ 
l’interno del blocco “Giocatore”. In 
realtà, esistono due differenze fon¬ 
damentali con quest’ultimo: nel ca¬ 
so del blocco “Calcolatore”, infatti, 
non si dà termine alle verifiche non 
appena si trova una presa eventuale, 
poiché, ai fini del computo, occorre 
conoscere tutte le possibili prese e 
non solo una di queste. Inoltre, le 
carte coinvolte di volta in volta nella 
verifica devono essere in qualche 
modo memorizzate, per poter essere 
poi trasferite sul già citato vettore 
MP. Quindi, sebbene il funziona¬ 
mento sia concettualmente identico 
a quello visto per il blocco “Gioca¬ 
tore”, al termine di ogni verifica, 
con esito positivo e relativa memo¬ 
rizzazione, il sottoprogramma do- 
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vrà ripartire dal punto in cui si era 
interrotta la verifica. 

Tuttavia, per i motivi cui si accen¬ 
nava nella prima parte dell’articolo, 
il sottoprogramma utilizzato sarà lo 
stesso, sia per il blocco “Calcolato¬ 
re” sia per il blocco “Giocatore”. 
Vedremo in seguito i vari test inter¬ 
ni, che permetteranno a questo sot¬ 
toprogramma di svolgere entrambe 
le funzioni. 

Vediamo ora cosa si intende per 
“calcolo della convenienza”. Ad 
ogni carta è associato una sorta di 
punteggio interno. La convenienza 
di una mossa è data dalla somma dei 
punteggi interni delle carte coinvol¬ 
te nella mossa stessa. Il calcolo del 
rischio, in realtà, riguarda l’even¬ 
tualità o meno che la mossa in que¬ 
stione lasci all’avversario la possibi¬ 
lità di fare Scopa. Anche in questo 
caso il calcolatore giocherà in ma¬ 


io reale, come cioè appariva all’atto 
della mossa, per la presa futura si 
opera su un piatto “fittizio”, com¬ 
posto cioè, di volta in volta, oltre 
che dalle carte del piatto anche da 
una delle carte del calcolatore, che 
quindi viene vista come già scartata. 
Naturalmente, per evitare che la car¬ 
ta deposta sul piatto si combini poi 
con se stessa, anche il vettore UB 
(che come abbiamo già visto ospita 
le carte che ha in mano il calcolato¬ 
re) verrà trasferito in un vettore 
provvisorio (UN), dove la corri¬ 
spondente carta depositata sul piat¬ 
to per la verifica verrà azzerata. 

La presa futura sarà, in linea di 
massima, meno conveniente della 
presa immediata e perciò la conve¬ 
nienza (VP) non verrà inizializzata a 
0 come per quest’ultima, ma a — 8. 
Ciò impedisce che, a parità di mos¬ 
sa, il calcolatore lasci una presa buo- 


talmente alto da non essere per nulla 
opportuna. In questi due casi il cal¬ 
colatore selezionerà una carta fra 
quelle che ha in mano, che corri¬ 
sponda soprattutto ai seguenti re¬ 
quisiti: sia uscita già parecchie volte 
in modo da non dare presa facile 
all’avversario, non lasci Scopa e non 
sia un 7, soprattutto se ce ne sono 
ancora in circolazione. 

Naturalmente, anche in questo 
caso la selezione avverrà in maniera 
probabilistica, tenuto conto del fat¬ 
to che potrebbe verificarsi la circo¬ 
stanza che nessuna delle carte di UB 
corrisponda ai requisiti sopra indi¬ 
cati. In questo caso la scelta sarà, 
per forza di cose, per la “meno peg¬ 
gio”. 

Un’attenzione particolare nel caso, 
appunto, della selezione dello scarto 
va rivolta alla quinta e alla sesta 
mano. Infatti, in questi casi il calco- 
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Figura 6. Struttura dell’array MP, contenente tutte le mosse possibili (di presa immediata o futura) e le relative 
convenienze. 


niera probabilistica. Se la carta, o la 
somma delle carte rimaste sul piat¬ 
to, darà luogo al valore di una carta 
uscita già quattro volte, il rischio 
sarà ovviamente nullo. Se invece il 
valore corrispondente appartenesse 
a quello di una carta uscita, per 
esempio, tre volte, occorrerà distin¬ 
guere: in prima mano infatti il ri¬ 
schio sarà minimo, ma in ultima ma¬ 
no sarà massimo. Pertanto il rischio, 
il cui valore numerico verrà sottrat¬ 
to alla convenienza per dare la con¬ 
venienza totale, sarà in funzione sia 
delle carte uscite che del numero del¬ 
la mano corrente. 

• Seconda fase: preda futura. 

Lo schema a blocchi dell’algoritmo 
di presa futura è concettualmente 
identico a quello di figura 7, per la 
presa immediata. La differenza ri¬ 
siede nel fatto che, mentre per la 
presa immediata si operava sul piat- 


na per una presa futura di efficacia 
poco superiore, con il rischio in più 
di un intervento da parte del gioca¬ 
tore che neutralizzi la presa alla pas¬ 
sata successiva. Esistono numerose 
altre circostanze nelle quali il calco¬ 
latore preferirà “aspettare” piutto¬ 
sto che prendere subito. 

• Terza fase: ricerca scarto. 

La terza fase non porta al riempi¬ 
mento del vettore MP e pertanto 
non utilizza il punteggio interno del¬ 
le carte. Essa viene attivata solo nel 
caso si verifichino le seguenti due 
circostanze: al termine della prima e 
della seconda fase il vettore MP ri¬ 
sulta essere vuoto. Ciò significa che 
non esiste presa, né immediata né 
futura. 

Al termine della prima e della se¬ 
conda fase il vettore MP non è vuo¬ 
to, ma la mossa cui è associata la 
convenienza più alta ha un rischio 


latore può risalire alle carte del gio¬ 
catore (nel caso della quinta mano 
in maniera probabilistica) e pilotare 
così la ricerca in maniera più rigoro¬ 
sa. In particolare all’ultima mano, 
dato che è molto importante pren¬ 
dere per ultimi, sarà opportuno che 
lo scarto non faciliti la presa da par¬ 
te del giocatore. Per ottenere queste 
funzioni il calcolatore utilizzerà un 
apposito sottoprogramma, che al 
suo interno impiegherà ancora una 
volta il sottoprogramma di verifica 
“presa eventuale”, già visto per il 
blocco “Giocatore”. In questo caso 
si andrà a vedere se, in seguito allo 
scarto, si genererà una presa da par¬ 
te del vettore, contenente le carte del 
giocatore, ricostruito dal calcolato¬ 
re sulla base delle carte uscite. In 
base all’esito della verifica si valute¬ 
rà l’opportunità o meno dello scarto 
stesso. 
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Figura 7. Schema a blocchi dell’algoritmo di presa immediata. 


• Operazioni grafiche e accessorie. 
Sono del tutto analoghe a quelle del 
blocco “Giocatore” e, al solito, ne 
rimandiamo Tesarne alla descrizio¬ 
ne del programma BASIC. 


Parti accessorie 

• Preparazione del mazzo. 

La preparazione del mazzo è otte¬ 
nuta da una random che genera nu¬ 


meri da 1 a 40. Un vettore booleano 
(VF) impedisce che ogni carta possa 
comparire più di una volta. 

• Disegno del tavolo e delle carte. 
Non vi è nulla di particolare da un 
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punto di vista concettuale. Il dise¬ 
gno del tavolo è parte del program¬ 
ma principale, mentre ogni singola 
carta, a seme indeterminato, è un 
sottoprogramma a sé stante. 

• Calcolo punteggio partita. 

Il calcolo del risultato della partita è 
molto semplice e veloce per quanto 
riguarda le carte, gli ori, il settebello 
e le eventuali scope. 

Più complesso invece è il calcolo 
della primiera, e di quest’ultimo per¬ 
tanto vedremo l’algoritmo. La pri¬ 
miera viene calcolata, separatamen¬ 
te per il calcolatore e per il giocatore 
con due procedimenti, peraltro 
identici. Pertanto ne vedremo uno 
solo, quello per il giocatore, con ov¬ 
via estensione al caso del calcolato¬ 
re. 

Innanzitutto il vettore delle carte 
prese dal giocatore (GP) viene “tra¬ 
sformato”. Infatti, nella primiera il 
valore delle carte non cresce con il 
numero, ma presenta delle eccezio¬ 


ni: la sequenza decrescente è 7-6-A- 
5-4-3-2. Pertanto, prima di iniziare 
l’esame del vettore in questione tutti 
gli assi verranno trasformati in 5, 
mentre tutte le carte inferiori al 6, 
escluso ovviamente l’asso, verranno 
decrementate di una unità e le figure 
(K-Q-J) azzerate. Terminata questa 
operazione inizierà il computo vero 
e proprio. Due variabili (AC e BC) 
di volta in volta fisseranno l’estremo 
inferiore e superiore dei numeri da 
considerare del vettore-codice (vedi: 
Struttura e codifica dei dati), in mo¬ 
do da esaminare prima gli ori, poi i 
cuori, poi i fiori e quindi le picche. 
La carta più alta (ricordiamoci che 
le figure sono state azzerate) dell’in¬ 
tervallo in questione verrà collocata 
nella rispettiva casella del vettore 
Primiera (BQ). Quindi si passerà ad 
un altro intervallo, e cioè ad un altro 
seme, fino all’esame di tutti e quat¬ 
tro i semi. 

• Altre parti. 


Esistono numerose altre parti acces¬ 
sorie, di decodifica, conversione, 
disegno, ecc..., ma essendo irrile¬ 
vanti da un punto di vista concettua¬ 
le le vedremo in dettaglio nell’esame 
del listato BASIC. 


Qualche cenno sull’efficienza 
e conclusioni 

Questo paragrafo fa riferimento 
al programma concreto e non alla 
sua struttura astratta. La sua com¬ 
prensione forse sarà maggiore dopo 
l’esame dettagliato del programma 
BASIC, tuttavia si è deciso di inse¬ 
rirlo a questo punto, in modo da 
concludere la parte introduttiva del¬ 
l’articolo. 

In termini di efficienza, soprattut¬ 
to di velocità di elaborazione (e sulla 
base di prove effettuate sul 
CBM4032) si può dire che questa 


Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell'informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall’animazione cinematografica 
e televisiva ai businnes graphics; dalla 
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varia a seconda del numero delle 
carte presenti e nel piatto e in mano 
al calcolatore. Il tempo di “pensata” 
varia da un minimo di 10 sec ad un 
massimo di 1 min 30 sec, in casi 
eccezionali. 

La moda, cioè il tempo più frequen¬ 
te, è di circa 20 sec. 

Il tempo di preparazione del mazzo 
è di circa 16 sec; il risultato viene 
anch’esso calcolato in circa 16 sec. 

Per quanto riguarda le interazioni 
con l’utente esse sono assai rapide 
nel caso di presa (‘Asec.). Possono 
essere più lente le verifiche sugli 
scarti (2 sec in genere), ma non supe¬ 
rano i 5 sec. 

Per quanto riguarda i difetti strate¬ 
gici più evidenti, direi che il neo più 
grosso dell’algoritmo è quello di 
prescindere un po’, come parte “in¬ 
telligente”, dal gioco dell’avversa¬ 
rio. Il calcolatore ha la tendenza, 
cioè, a giocare la propria partita sen¬ 
za un minimo di malizia, non cer¬ 
cando mai di capire le carte dell’av¬ 
versario sulla base degli scarti che 
questo opera, ma piuttosto dalle 
carte uscite. 

La risoluzione di questo tipo di 
problema richiederebbe la reimpo¬ 
stazione della parte strategica. Altri 
miglioramenti, invece, possono es¬ 
sere introdotti sulla stessa base stra¬ 
tegica del programma. Per quanto 
riguarda la primiera, per esempio, 
può essere impostata una ricerca più 
accurata, da parte del calcolatore, 
del seme mancante quando, durante 
una partita, vi sia la possibilità di 
scegliere fra più prese utili. 

Ovviamente, oltre al consueto 
problema della memoria disponibi¬ 
le, bisogna tener presente che l’in¬ 
troduzione di nuove funzionalità 
rende più lento il tempo di elabora¬ 
zione e perciò, per non rendere trop¬ 
po pesanti le attese, alcune parti do¬ 
vrebbero essere riformulate, per es¬ 
sere rese più veloci. 

Appuntamento quindi alla seconda 
parte, quando presenteremo il det¬ 
taglio del programma a blocchi di 
linee e il listato BASIC per 
PET/CBM e C 64. ■ 
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Comandi standard 

Nuovi comandi 

RUN x 

RUN # x 

GOTO x 

GOTO # x 

GOSUB x 

GOSUB # x 

1F...THEN x 

IF...THEN # x 

ON...GOTO xl, x2,... 

ON...GOTO # xl. # x2,... 

ON...GOSUB xl, x2... 

ON...GOSUB # xl, # x2,... 


LBL x [commento] 


0 ^ x, xl, x2,...< 64000 


Figura 1. Lista dei comandi de! BASIC standard e di quelli modificati con la 
variante proposta. 


Un interessante metodo 
per rinumerare 
facilmente le linee 
dei programmi 


di Maurizio Paolinelli 


Introduzione 

C apita spesso, nella fase di 
stesura di un programma, 
di dover cambiare la nu¬ 
merazione delle linee (spostamento 
blocchi di programma, inserzione di 
nuove parti, È allora purtroppo 
necessario porre molta attenzione 
ed aggiornare tutte le istruzioni di 
salto (GOTO, GOSUB, IF...THEN, 
ON-GOSUB, ON-GOTO) prece¬ 
dentemente definite, altrimenti l'e¬ 
secuzione del programma si conclu¬ 
derebbe, nel caso più fortunato, con 
un “UNDEF’D STATEMENT ER- 
ROR” che consente di accorgersi 
immediatamente dell’errore e, nel 
peggiore dei casi, con salti a numeri 
di linea errati, con conseguenze po¬ 
co prevedibili sui risultati e allunga¬ 
mento della fase di verifica. 

Il programma qui descritto consente 
di etichettare le destinazioni dei salti 
provocati dalle istruzioni GOTO, 
GOSUB, IF...THEN, ON... 

In tal modo la destinazione non sarà 
più quel particolare numero di linea 
specificato nell’istruzione (come av¬ 
viene nel BASIC standard), bensì 
quel numero di linea (non specifica¬ 
to dall’istruzione) all’inizio del qua¬ 
le si trova una particolare label, spe¬ 
cificata dall’istruzione stessa. 

Il vantaggio è evidente: eliminan¬ 
do l’aggancio diretto fra istruzione 
di salto e numeri di linea è possibile 


SITUAZIONE 
DELLO SCHERMO 

RUN 

1 

2 

3 

OK 

READY 


Figura 2. La situazione che appare 
sullo schermo quando si esegue il pro¬ 
gramma del listato I. 

cambiare in qualsiasi momento la 
numerazione del programma, senza 
alcuna precauzione. 

Per realizzare quanto sopra descrit¬ 
to sono state apportate alcune mo¬ 
difiche all’interprete BASIC del 
C64, dopo averlo ricopiato nell’a¬ 
rea RAM (come noto, l’interprete 
BASIC del C 64 risiede in ROM e 
quindi non è possibile modificarlo 
direttamente). 

I nuovi comandi 

Il nuovo BASIC affianca ai classi¬ 
ci comandi di salto i nuovi comandi 
riportati nella figura I. 


È inoltre presente una nuova istru¬ 
zione denominata LBL, con la quale 
è possibile etichettare le linee di pro¬ 
gramma (la frase di commento, fra 
parentesi, della nuova istruzione è 
opzionale). 

Questo nuovo comando prende il 
posto dell’istruzione LET (il cui uso 
è di una rarità estrema) del BASIC 
standard. 

Con il nuovo BASIC, quando si 
incontra l’istruzione GOTO# x (o 
qualsiasi altro comando di salto se¬ 
guito da #) non si passa ad eseguire 
la linea di programma numero x, 
bensì la linea di programma “eti¬ 
chettata” con x, ovvero la linea di 
programma che inizia con l’istruzio¬ 
ne LBL x. 

D’altra parte, quando si incontra l’i¬ 
struzione LBL x la stessa viene igno¬ 
rata e si passa ad eseguire lo state¬ 
ment successivo. Come esempio di 
funzionamento dei nuovi comandi 
si esamini il listato di figura 2. 
Dopo il RUN, la sequenza di esecu¬ 
zione delle linee è la seguente: 
linea 10 : ignorata (REM); 
linea 20 : A= 1; 

linea 30 : ignora l’istruzione LBL...; 
salta alla subroutine che inizia alla 
linea 70 (etichettata con I); ignora 
l’istruzione LBL...; stampa “I” e ri¬ 
torna; incrementa A (A #2); salta 
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alla linea 50 (etichettata con 200); 
linea 50 : ignora l’istruzione LBL...; 
A dunque procedi; 
linea 60 : salta alla linea 30 (etichet¬ 
tata con 10); 

linea 30 : stampa “2”; incrementa A 
(A=3); salta alla linea 50; 
linea 50 : A # 4 dunque procedi; 
linea 60 : salta alla linea 30; 
linea 30 ; stampa “3”; incrementa A 
(A=4); salta alla linea 50; 
linea 50 : A=4 dunque salta alla li¬ 
nea 40 (etichettata con 5); 
linea 40 : ignora l’istruzione LBL...; 
stampa “OK”; fine. 

Ogni commento ulteriore dovrebbe 
risultare superfluo. 

Come si può notare, le istruzioni 
di salto sono completamente svinco¬ 
late dalla numerazione delle linee, 
che dunque può essere modificata 
senza particolari precauzioni. Allo 
scopo può essere utilizzata anche la 
nuova istruzione REN, contenuta 
nel Tool Kit presentato su Personal 
Software n. 12-13 del Novembre- 
Dicembre 1983, istruzione che, co¬ 
me noto, possiede la grossa limita¬ 
zione di non aggiornare i comandi di 
salto. 

Si tenga presente che le nuove istru¬ 
zioni di salto non eliminano le vec¬ 
chie, ma convivono con esse. In so¬ 
stanza, il parametro di salto viene 
interpretato come una label o come 
un numero di linea, a seconda che 
sia o no preceduto dal simbolo #. 

Infine alcune avvertenze. Duran¬ 
te la stesura di un programma in cui 
si fa uso di salti “etichettati” è neces¬ 
sario fare attenzione a non usare lo 
stesso numero per etichettare due 
differenti linee; qualora ciò avvenis¬ 
se, dato che la ricerca delle label 
avviene sempre a partire dalla prima 
linea di programma, il salto verreb¬ 
be effettuato al numero di linea più 
basso fra i due. 

È necessario inoltre che il primo ca- 


10 REM PROVA NUOVE ISTRUZIONI SALTO 
20 A = 1 

30 LBL 10: GOSUB# 1: A = A + 1: GOTO#200 
40 LBL 5 FINE: PRINT “OK”: END 
50 LBL 200 TEST: IF A = 4 THEN#5 
60 GOTO# 10 

70 LBL I SUBR. STAMPA: PRINT A: RETURN 


Listato 1. Un semplice programma dimostrativo dei nuovi comandi. 


Listato 2. // programma BASIC. 


i rem 


2 rem * * 

3 REM :+: SALTI ETICHETTATI PER C. 64 # 

4 REM # * 

5 REM * DI * 

6 REM * MAURIZIO PAOLINELLI * 

9 REM :+ * 


10 REM^Ht*********^******************** 

12 PRINT"SFCC7>:FORI=0TO25:PRINT"*"; :N 
EXT :PRINT 

14 PRINTSPCC7::■"*** SALTI ETICHETTATI 

11 

16 PR I NTSF'C C 7 > : FOR I =0TO25 : PR I NT " * " ,s : NE NT : 
PRINT 

20 PRINT"SOTTENDI CIRCA 40 SECONDI, PREGO 
! " 

29 REM RICOPIA BASIC IN RAM 

30 FOR I =40960T049151 : F'OKE I , F'EEK < I > : NEXT 
39 REM SOSTITUISCI L.ET CON LBL. 

4 0 P O K E41151.» 66 : P 0 K E41152,204: P 0 K E40988,6 
8 : POKE40989,207 

49 REM ADDR.NUOVE ROUT. GOTO,GOSUB,THEN,0 
N 

50 F'OKE40990,140 :POKE40991,207 : POKE40398 , 
97 : F’OKE40999,207 

60 F'OKE4:3328,76 : P0KE43329,75 : POKE43330,28 
7 : P0KE41006,71 

69 REM MODIFICA STO. ROUT. GOSUB E RUN 

70 P0KE43159,76 :P0KE43168,118 :P0KE43161,2 
07 :P0KE43137,60 :P0KE43138,207 

99 REM LETTURA DELLE NUOVE ROUTINE 

100 A=0 : FOR I = 5 3 @ 5 2 T053247 : RE ADN : Fl=A+N : POK 
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Seguito listato 2. 

EI,N:NEXT 

1 1 0 F 0 R I = 4 3333 T 043370 R E R D N :: Fi =R + H ; P O K E I , H 
: NEXT 

120 IFR027754THENPRI NT " ERRORE HEL.LE IST 
RUZIONI DRTR !" :END 


123 REM PIE IL. ITA IL 
130 PGKE1,54 SPRINT 
0 ! " : NEH 
140 END 

1000 D R T fi 3 2 .,121 ,0 , 
lì!6 3.6 376, 251... 168 
1010 DRTR0,-72201 , 
, 3 2 12 3.... G 176 3, 7 6 
1020 DRTR168,76,23 
0,3.33,2,240,7,163 , 
1©30 DATA2,32,115, 
13. , 104,72,32 , 3.21,0 
1048 DRTR155,207,7 
, 8 , 76 , 3 . 54 , 168 , 72 , 2 
1050 DRTR5,24,104, 
,32,107,163,165,20 
1060 DRTR165,21,13 
, 3. ,133,35, 134,36, 1 
1070 DRTFi3,76,227 , 
,177,35,201,136,20 
1080 D RIA 10 3. , 35 , 13 
3.23,200,177,95,201 
1090 Dfl Tfl24,177,95 
, 21. , 208,20,165,253 
1100 DRTR14,56,165 
6,233,0,133,123,96 
1110 DATA177,95,17 
12 © 0 D A T1476,232 , 16 
, 240,4,20 3. , 137,208 
1210 DRTR208,4,104 
,115,0,32,107,169, 
1220 DATA240,235,1 


NUOVO 

BR 

SIC 




3BNUO' 

VO 

BRS 

IC 

ABILI 

TRT 

2,141 

, 20 

f ■’ 

6, 

174,16 

f .** 

32 , 3.2 

1 





:5,208 


7 6 r 

15 

1,207, 

1 04 

3.60 






,167, 

20 3. 

,35 

i- ci! 

40,6,1 

63 , 

, 133 






, 76,3. 

31 , 

1.68 

, 3. 

65,2,2 

40, 


6 , 1 . 74 , 167 , 104 , 72,32 , 121 
0 3 . , 35,240 

76 , 3.60 , 1.68 , 104,32 , 3 . 15,0 
, 1 . 33,253 

3 , 254 , 165 , 43 , 166 , 44,160 
77 , 35,208 

168 , 200 , 200 , 200 , 234,234 
8,5 3 . , 56 , 152 

3 , 122 , 3 . 65,96 , 105,0 , 133 , 
, 32 , 240,237 

, 32 , 107 , 163 , 165 , 254,197 
, 137 , 20,208 

, 35 , 233 , 3 . , 133 , 122 , 165,3 
, 160 , 1 

0 , 136 , 177 , 95 , 76 , 170,207 
8 , 32 , 158 , 183 , 72 , 201 , 141 
, 240 , 198 , 181 
, 76 , 239 , 167,32 , 3 . 15 , 0,32 
201,44 
04 , 86 


ratiere dell’eventuale commento che 
segue l’istruzione LBL x non sia un 
carattere numerico, in quanto ver¬ 
rebbe interpretato come il prosegui¬ 
mento del numero x. 

Caricamento del nuovo BASIC 

Per poter usare i nuovi comandi è 
necessario caricare in memoria ed 
eseguire il programma del listato 2. 
Subito dopo il RUN, una scritta sul¬ 
lo schermo avverte che sono neces¬ 
sari circa 40 secondi pereffettuare la 
modifica del BASIC standard e l’a¬ 
bilitazione del nuovo. 

Dopo aver ricopiato in RAM l’inter¬ 
prete BASIC, viene sostituito il co¬ 
mando LET con il nuovo comando 
LBL. 

Vengono poi cambiati gli indirizzi di 
salto alle nuove routine ed effettuate 
piccole modifiche alle routine stan¬ 
dard. 

Vengono infine scritti in linguaggio 
macchina i sottoprogrammi relativi 
ai nuovi comandi; questa operazio¬ 
ne viene effettuata mediante una se¬ 
rie di frasi DATA. 

Se la digitazione dei valori DATA è 
stata corretta, sullo schermo appare 
la scritta NUOVO BASIC ABILI¬ 
TATO! e il successivo comando 
NEW libera completamente l’area 
BASIC, che resta interamente a di¬ 
sposizione dell’utente (le nuove rou¬ 
tine occupano 196 nuove locazioni 
di memoria nell’area $ CF3C - 
SCFFF). 

A questo punto si possono utilizzare 
i nuovi comandi. 

Si tenga presente che è possibile tor¬ 
nare, in qualsiasi momento, al BA¬ 
SIC originale, digitando POKE 1,55 
oppure premendo contemporanea¬ 
mente i tasti RUN/STOPe RESTO- 
RE. 

Per ripassare dal BASIC originale a 
quello modificato, occorre invece 


digitare POKÉ 1,54. 

Un’ultima avvertenza. Quando si 
carica un programma che contiene i 
nuovi comandi di salto etichettato 
bisogna accertarsi éche il nuovo BA- 

s 


SIC sia già stato caricato e abilitato. 
In caso contrario i nuovi comandi 
non verranno compresi e verrà se¬ 
gnalato un SYNTAX ERROR nelle 
linee che li contengono. ■ 
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Contabilità personale 


Un semplice 
programma per il 
vostro Sharp MZ/700 

di Giuseppe Galli 

Q uesto semplice program¬ 
ma permette di memoriz¬ 
zare una serie di operazio¬ 
ni contabili con possibilità di visua¬ 
lizzare o stampare il saldo ogniqual¬ 


volta si desideri (se il sistema com¬ 
prende pure una stampante 80 co¬ 
lonne si può stampare un estratto 
conto con intestazione del conto o 
del rapporto). 

È possibile trattare al massimo 
100 operazioni. Ogni record com¬ 
prende i seguenti 4 campi: 

1 - data (8 caratteri obbligatori); 

2 - descrizione operazione (max. 20 
caratteri); 

3 - importo dare (se nullo immettere 
freccia in giù); 


4 - importo avere (idem come sopra 
per nullo). 

Inoltre è possibile decidere se l’ope¬ 
razione è da inserire in contabilità 
bianca o nera (digitare - B - o - N). 
Il programma permette di visualiz¬ 
zare e/o stampare la contabilità con 
tutte le operazioni (opzione “n”) 
oppure con le sole operazioni uffi¬ 
ciali (opzione “B”). 

Infine è naturalmente possibile 
archiviare i dati su cassetta con no¬ 
me del file. 


Listato I. Il programma BASIC. 


10 REM+: ******* : + : ************************ * 
20 REM**** **** 

30 REM**** COHTABILITO' **** 

40 REM**** BV **** 

50 REM**** GOTTI GIUSEPPE **** 

60 REM**** RIU0N0ZZPHQ **** 

70 REM**** **** 

80 REM********************************** 
96 CONSOLE©> 25 ? 0 7 40 
100 DI MOT'; 1007 51 


110 PRIHT"EEEEEEEEEBSBBi:i MEMORIZZO DOTI" 

120 F'RINT"EEEEEEEEEE21 INSERISCI DOTI" 

130 F'R I NT " EEEEESEEBE3I UI SUOLI ZZO E STAMPO" 

140 F'RINT"EEEEESSEBE4] RECORD DOTI" 

150 GETST:IFST=""THEN150 
160 IFST="1"THEN210 
170 IFS$="2"THEN340 
180 IFST="3"THEN660 
190 IFST="4"THEN900 
200 GOTO150 

210 INPUT”EEEEEEEEEBSBBBENGME DEL FILE ";B$ 

220 F'RINT"EEEEEBBBBQU0ND0 E'' PRONTO LO CASSETTO" 

230 F'RINT"ESEEB3SBSBESBSBSCHIACCIO F'LOV POI UN TASTO" 

240 GETST:IFST=""THEN240 

258 F'RINT"EEEEEEEBBBBBBSBBBBST0 MEMORIZZANDO I DATI" 

260 PRINT"EEEEEEEEEEEEESEBSOTTENDI PREGO" 

270 ROPENBT 

280 FORI=1TO108:FORL=1T05 
290 INPUT-TOT': I, L) 

300 NEXTL : NEXTI : I NF'UT/'TF 1T : 1NPUT/TF2T : CLOSE 

310 F'RINT"EEEEEBBBBBBBEBFIO FINITO PREMI STOP POI UN TASTO" 

320 GETST:IFST=""THEN320 


330 GOTO90 

340 F'RINT"EESEESBBBBBBDEUI MEMORIZZARE NUO'JE OPERAZIONI ? 

~7 cr(Ti DDTMT»K , m i| K , nnnnnonnnnnnnr C- ~l 11 

I F. 1H I uuhuuuuuquuuuuuuuL -r»* - M J 

360 GFTST:IFST=""THEN360 
370 IFST=“S"THEN390 


386 GOTO90 

390 FORI = 1T0100 

400 IFATC! 1 7 ì " "THEN420 

410 GOT0580 


420 F'RINT"EEEEEEESBOPERAZIONE N. ";I 

430 INPUT"EEEBDflT0-: "SOfd. 1 > : IFL EN < PT < 1, 1 > < >8THEN420 
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Contabilità 
_personale 


Seguito listato I. 

440 INPUT"ESEBDESCRIZI ONE :";fi*(1,2 > : IFLEN(fi*(1,2))>20THEHF'RINT"EEEBSFRASE TRO 

PPO LUNGA RIPETERE PREGO ":GOTO440 

450 GOSUB1050 

460 INPUT"EEE3IMPORTO DORÈ—: " ; 0*< 1,30 : IFA*( 1,3>=" + "THENfl*< 1,3>=" “ 

470 GOSUB1U60 

480 INPUT"SSSSIMPORTO OUERE-:";0*<I,4):IFA*(1,4>="+"THENfi*C1,4>="" 

490 6OSUB1080 

500 INPUT"EEESCODICE OP.-: " ; fi*(1,5> 

510 IF(fi*( 1,5>-"B" > + Cfi*< 1,5) = "N" )THEN530 
520 GOTO500 

530 PRINT"EEEESESEBBfiLTRE OPERAZIONI CS-'N] " 

540 GETS*:IFS*=""THEN540 
550 IFS*="S"THEN580 
560 IFS*="N"T HEN90 
570 GOTO540 
580 NEXTI 
590 GOTO90 

600 INPUT"EEEEEEEESBBBBBBBDOTfi : ";C* 

610 INPUT"EEEEESEEB8BTIPO SITUAZIONE ";H* 

620 FRI NT"E" 

630 FORI=1TO10@ 

640 IFfi*< 1, 1 > = " "TFIEN750 

650 IFO*tI,5)="B"THEH690 

660 IF < fi* C 1,5 > = " N " > * < H*= " N " > THEN690 

670 IF <A* <1,5 > = "N"> * (H*="B")THEN720 

680 GOTO720 

690 FEINTfi*(I,2>: "II": 

700 IFfl*(I, 3)< >" 11 THENPR INTtì*< 1,3); 

710 IFO*(I,4>< >""THENPRINTO*<1,4)!" + " 

720 IFa = 10> + <I =20 + < 1=30 ':> +<I=40) + <I =50> + <I =60)+<I =70>+<I=80> + <I =9tì>THEH740 
730 GOTO750 

740 GETS*:IFS*=""THEN740 
750 NEXTI 

760 D=0:E=0:DB=0:EB=0:DN=@:EN=0:F1=0:F2-0: F=«: M=0 
770 FORI = ITO 100 

780 IFfi* CI,5)="B"THEND=UOL < RIGHT*Cfi*(1,3 >,7 >>:E=UflL <RIGHT*(fi*(1,4 >,7 > >:DB=DB+D: E 
B=EB+E 

790 I Ffi* < 1,5 > = " H " TFIENF=UfiL (RI GHT * < fi* < 1,3>, 7> ) : M=UfiL ( RI GHT* ( fi* ( 1,4), 7 ) > : DN=DN+F : E 

H=EN+M 

800 NEXTI 

810 F1=EB-DB:F2=EN+EB-(DB+DH> : GOSUB1400 

nn t UT 11 nwpppnppipnppnnppnnpppnup ii ti 

OZ.C 1 rr IMI UUUUUUUUEiUUUUEilUUUUUUUUUULd 

830 IFH*="B"THENPRI NT"EEEEEEEEEEESfiLDO CASSO ";F1 
840 IFH*="N"THENPRINT"EEEEEEEEEEESfiLDO COSSO " ; F2 
850 PRI NT"SEEEEEEBBSTOMPO CS- NI " 

860 GETS*:IFS*=""THEN860 
870 IFS*="S"THENGOSUB1100 
880 IFS*= "N " TFIEN90 
890 tiOTO850 

900 REM ROUTINE DI RECORD 

910 INPUT"EEEEEEBBBBBBBBBNOME FILE " : B* 

920 F‘RINT”EBBBSSBBSBEEEEESQUfiNDO SEI PRONTO" 

930 PRINT"EEEEEESF'REMI RECORD E UN TOSTO" 

940 GETS*:IFS*=""THEN950 

950 WOF'ENB*: PRINT"EEBBBBBBBBSSS3T0 MEMORIZZANDO " 

96tì PRINT"EBBOTTENDI PREGO lì!" 

970 FORI = 1TO100:FORV= 1T05 
980 PRINT/Th*(1,V■ 

990 NEXTV:NEXTI 

1000 PRI NT/TF1*:PRINT/TF2*:CLOSE 
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Seguito listato I. 

1010 F'RINT"EEEEESBBSBHO FINITO PREMI STOP" 

1020 PRINT"EEEEEBEF'GI UN TASTO" 

1030 GETSf:IF8*=""THEN1030 
1040 GOTO 100i 

1050 FORJ=LEN<A$<I,2))TO20:A$<I,2)=A$<I,2>+"-":NEXTJ:RETURN 

10601 IFHTC 1,3>< >" "THENFORJ=LEN<A$< 1,3) )T07:A*< 1,3)=" "+A4< 1,3> : NEXTJ:A$< 1,3) = "f 
,, +Ht(I f 3) 

1070 RETURN 

1 USO IFA$<I ,4)0“ " THENFORK=LEN < H'1(I,4)) T07 :flt(I,4)=“ “ +A* CI, 4 ) : NEXTK : A» <1,4) = " f 
“+A$<I ;4) 

1090 RETURN 

1100 REM ROUTINE DI STAMPA 

1110 INPUT"EESSESSEE5BBBQUANTE COPIE "5 0 

1120 PRINT"EEEEEEEEBBBSBBBSS3R0UTINE DI STAMPA " 

1130 FORL= 1TOG: PR INT-- P 

1140 : PRINT-'P 

1150 PRINT/P" XXXXXXXXXXXXXXXXXXXXXX":PRINT-'P 

libò PRINT--F"' XXXXXXXXXXXXXXXXXXXXXX" 

1170 PR I NT /P " -" : PR I NT /? 

1180 

1190 PR I NT /P : PR I NT-'P 

1200 PRINT'-P" SITUAZIONE DI CASSA AL " 5 C$ : PRINT--P 

1210 PRIHT-P"_" 


DATA 


I 


DESCRIZIONE 


1220 F'RINT-F'"E 
AUERE I" 

1230 PRINT-F'"! u l " - 

124W FORI=1TO100: IFA$<1,1>=""THEN1310 
1250 IFA#<1,5)="B"THEN1280 
1260 IF<A$(1,5)="N">+<H*= "N") THEN 1280 
1270 GQTQ1310 

1280 I FA$<1,3>< >" " THENF'R INT- P " E "5 A4 <1,1> 5 " 
5 ASCI,3)5" I" ? " I" 

1290 IFA$< 1,4)< >" " THENF'R INT/P" E " ; A4< 1,1)5" 
" I"; " “5A4<1,4)5“ I" 

1300 IF< 1=40) + < I =95) THENF'RIMVP"Q" 

1310 NEXTI 
1320 


DARE 


I"; " 

| Il ■ Il 


1330 IF < H$= " B " )*< F1 >0) THENPRI NT/'P"E 

“5 FI $ 

1340 IF<H4="B")*<F1<0)THENPRINT /P "E 
"5F14 

1350 IF<H4= "N " ) *(. F2>0)THENPRINT-P"E 

" 5 F24 

1360 IF<H4="N") * <F2<@)THENPRINT /P "E 
" 5 F24 

1378 cp T UT ' c " ff 


"5 A4<1,2)5" 

"5 A# <1,2)5" 

." : F'R I NT y'P 

SALDO DI CASSA 

SALDO DI CASSA 

SALDO DI CASSA 

SALDO DI CASSA 


I"; 


1380 F'R I NT y'P " Q " : NEXTL 
1390 GOTO90 

1400 F14=STR4<F1):F24=STR4<F2) 

1410 IFLEN(FU)<=7THENF0RI =LEN<F1 4)T07: F1 4= 1 " " +F14: NEXTI : F lt= "f "+F14 
1420 I FLEN< F24 ) <=7THENF0R I =LEN< F24 )T07: F2"4= " " +F24: NEXTI : F24=" £ " +F24 
1430 RETURN 


REMarks 

120-230 - Visualizzazione menu. 
240-360 - Introduzione dati da cas¬ 
setta. 

370-620 - Input dati operazioni. 
630-920 - Routine visualizzazione 
con opzione per stampa. 

930-1070 - Routine di memorizza¬ 
zione dati su cassetta. 

1080-1120 - Routine di dimensiona¬ 


mento stringhe per 2 - descrizione - 
3-4 - importi. 

1130-1420 - Routine di stampa (solo 
se si possiede una stampante da 80 
colonne). 

1430-1460 - Routine di dimensiona¬ 
mento saldi contabili da stampare. 

Conclusione 

Se si possiede una stampante da 
80 colonne è possibile personalizza¬ 


re l’intestazione dell’estratto conto 
sostituendo alle righe 1180 e 1 190 i 
caratteri del titolo. 

Se non si possiede la stampante si 
può visualizzare l’estratto conto sul¬ 
lo schermo scegliendo (N) quando 
viene richiesta l’opzione di stampa. 

Le videate dell’estratto conto rap¬ 
presentano 10 operazioni per volta. 
Per continuare basta premere un ta¬ 
sto. ■ 
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Libri firmati JACKSON 


Paul M. Chirlian 

IL BASIC PER TUTTI 

Un facile testo propedeutico indirizzato a coloro 
che, attraverso il BASIC, si vogliono 
familiarizzare con la programmazione e, più in 
generale, con i calcolatori. Elementare, ma 
esauriente, il volume si raccomanda anche a 
chi, pur già esperto, voglia approfondire 
particolari aspetti di questo linguaggio. 

240 pagine. 

Codice 525 A L. 17.500 
Bonelli - Gianni 

ALLA SCOPERTA DEL VIC 20 
Architettura e tecniche di programmazione 

Un libro chiave indirizzato agli utenti BASIC del 
VIC 20 e a chi desidera approfondire anche 
l'aspetto hardware di questo diffusissimo 
Personal. Tutti i programmi esposti nel volume 
sono disponibili - a richiesta - su cassetta o 
floppy disk. 308 pagine. 

Codice 338 D L. 22.000 

Mark Ramshaw 
GIOCHI GIOCHI GIOCHI 
PER IL VOSTRO VIC 20 

Un libro pieno di eccitanti scoperte per tutti 
coloro che possiedono un VIC 20 e tanta voglia 
di divertirsi. 29 programmi di giochi 
interessantissimi, che spaziano su una quantità 
incredibile di argomenti. 

Un libro diverso, da mettere in pratica e da 
utilizzare per trarre sempre nuovi spunti 
divertenti. 116 pagine. 

Codice 557 D L. 9.000 

Tim Hartnell 

SINFONIA PER UN COMPUTER VIC 20 

Giocare è il modo più semplice e divertente per 
imparare ad usare un computer. Lo prova 
questo libro, i cui giochi sono stati scelti 
proprio con l’intento di coprire nel modo più 
completo possibile tutta la gamma di 
prestazioni che questo calcolatore offre. 

128 pagine. 

Codice 563 D L. 10.000 

La Biblioteca che fa testo 
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DAL TRANSISTOR 
AL MICROPROCESSORE 

La moderna circuiteria a 
stato solido, la sua 
evoluzione, le sue 
prospettive. 

80 pag. L. 7.500 
Cod. 141A 


LA SOPPRESSIONE 
DEI TRANSITORI 
DI TENSIONE 

Cause, effetti, rimedi ai dan¬ 
neggiamenti, dei transitori 
d'alta tensione. 

224 pag. L. 12.000 
Cod. 611H 


MANUALE 

DI OPTOELETTRONICA 

Valido supporto per i proget¬ 
tisti elettronici. Questo ma¬ 
nuale si compone di nume¬ 
rosi fogli-dati, guide di scelta 
e tabelle comparative. 

208 pag. L. 15.000 
Cod. 613P 


La Biblioteca 
che fa testo 


CAPIRE 

I MICROPROCESSORI 

Spiegazione in forma chiara 
e dettagliata di come funzio¬ 
nano i microprocessori, le 
memorie ROM, RAM e le in¬ 
terfacce. 

126 pag L. 10.000 
Cod. 342A 


MICROPROCESSORI 
AL SERVIZIO 
DEL MANAGEMENT 

CAD/CAM e robotica la loro 
applicazione in Azienda, 
l'impatto su qualità e produt¬ 
tività, le prospettive. 

292 pag L. 20.000 
Cod 335H 


LE COMUNICAZIONI 
RADIO IN MARE 

Come orientarsi grazie alla 
moderna strumentazione e 
ai suoi codici. 

200 pag. L. 15.000 
Cod. 706A 


ELEMENTI 

DI TRASMISSIONE DATI 

Un valido ausilio per tecnici 
e studenti che vogliono ap¬ 
profondire le tecniche di co¬ 
municazione. 

178 pag. L. 10.500 
Cod 316D 
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I ntelligenza artificiale 
_e creatività_ 


Il personal computer 
come efficace strumento 
pedagogico 

di Claudio Poma 


N onostante i continui 
aumenti delle vendite, il 
computer in Italia resta 
ancora un “oscuro oggetto di desi¬ 
derio”. Se, da una parte, un prezzo 
che lo avvicina ormai al costo dei 
più sofisticati videogiochi lo rende 
raggiungibile da parte di un numero 
sempre maggiore di persone, dall’al¬ 
tra la mancanza di una valida prepa¬ 
razione culturale, di fronte all’inva¬ 
sione informatica, rischia di vedere 
l’odierno boom trasformato nel 
classico male del secolo. In altre pa¬ 
role, la maggioranza dei nuovi pos¬ 
sessori di home computer sa ben po¬ 
co della macchina che ha appena 
acquistato: se la pubblicità ci ha 
convinti che con un computer si può 
fare di tutto, i primi insuccessi nella 
programmazione rischiano di veder 
crescere un’ondata di insicurezza, 
con conseguente sviluppo di un pen¬ 
siero critico negativo di fronte al 
problema. L’unico modo per impe¬ 
dire questo è di dimostrare chiara¬ 
mente quali sono le molteplici possi¬ 
bilità offerte anche da un semplice 
home computer e, per questo, niente 
di meglio che proporre programmi 
semplici, ma discussi anche in quelle 
che sono le basi teoriche sulle quali 
si fondano e che, proprio per questo, 
possono essere comprensibili anche 
a chi, titubante, si avvicina per la 
prima volta a questo mondo, che 
può diventare affascinante se si ri¬ 
esce a gestirlo in modo personale e 
attivo. 


Listato 1. Il programma Abbecedario funzionante su C 64. 


10 PRINT"[<1CLR>]":POKE5 32 80,0 :POKE5 3 2 81 , 
9 

20 SI=54272:FL=SI:FH=SI+1:W=SI+4:A=SI+5:H 
=SI+6:L=SI+24 

30 POKEL, 15 :READX$:X$ = " ABBECEDAR 
IO " 

40 XY=-3:PRINT"[<10CRSR D>][<8CRSR R>]"; 
50 POKEA,9 
60 READX:READY 

70 IFY=-1THENPOKEW,0 :FORT=1T03000:NEXT:PR 

INT"[<1CLR>]":GOTO200 

80 POKEFH,X :POKEFL,Y 

90 POKEW,17 

100 FORT^1TO200:NEXT 

110 POKEW,0:XY=XY+4:IFXY>2lTHENl30 

120 PRINTMID$(X$,XY,4); 

130 FORT=lTO50:NEXT 
140 GOTO50 

200 CA=INT(RND(1)*26)+65 

210 IFCA=7 20RCA=7 40RCA= 7 50RCA= 8 70RCA= 8 80R 
CA=8 90RCA=AC0RCA = 90THEN200 
220 LE$=CHR$(CA) 

225 AC=CA 
230 RESTORE 
240 READDI$ 

250 IFDI$< >LE$THEN2 40 
260 V=53248 
270 POKEV+21,4 
280 POKE204 2,13 

290 FORT=0TO62 :READB:POKE8 32+T,B:NEXT 
300 POKEV+23,4 :POKEV+29,4 
310 POKEV+4,160 
320 POKEV+5,100 

400 PRINT"[<1H0ME>][<18CRSR D>]PROVA" 

410 GETA$:IFA$=""THEN410 
420 IFA$=LE$THEN470 

430 PR=PR+1:GOSUB600:PRINT"[<1CRSR U>]"SP 
$"RIPROVA ":SP$="" 

440 IFPR=3THENPRINT"LA LETTERA GIUSTA E' 
--> "LE$" <-- PREMILA":PRINT:PRINT: GOTO45 
0 

445 SP$=" ":GOT0410 

450 GETA$:IFA$=""THEN450 
455 IFA$ =LE$THEN470 
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Sviluppo cognitivo e creatività 


La seguente proposta, legata ad 
un’esperienza ristretta, per ora, ma 
dai risultati interessanti, si riferisce a 
un aspetto particolare e preciso: 
l’apprendimento. 

Può una macchina pensare? L’intel¬ 
ligenza artificiale è un argomento 
sul quale sono puntati gli occhi di 
tutti e la fantasia ci porta immedia¬ 
tamente ad un mondo compieta- 
mente automatizzato, dove l’uomo 
è vittima delle macchine da lui stesso 
costruite. Il problema è senz’altro 
rilevante, ma quello che mi interessa 
analizzare ora non è questo partico¬ 
lare aspetto, bensì una realtà molto 
più vicina e realizzabile, e cioè quan¬ 
to una macchina possa aiutarci a 
pensare. 

Prima di entrare nel merito vorrei 
che il lettore comprenda come quan¬ 
to verrà detto non abbia la pretesa di 
esaurire gli argomenti trattati, ma 
solo di esprimere i punti essenziali, 
senza i quali il presente articolo ri¬ 
sulterebbe ai più incomprensibile. 
Tutte le varie teorie psicologiche che 
si sono interessate allo sviluppo del¬ 
l’intelligenza nell’età evolutiva han¬ 
no riscontrato, al di là delle differen¬ 
ze di fondo che le contraddistinguo¬ 
no, 1’esistenza di vari stadi, che cor¬ 
rispondono allo sviluppo di capaci¬ 
tà cognitive via via più complesse e 
strutturate. Il passaggio da uno sta¬ 
dio a quello superiore è permesso da 
un processo di adattamento, che 
consiste nel saper trarre vantaggio 
dall’esperienza precedente per risol¬ 
vere. nuove e sempre più sofisticate 
situazioni. 

Che lo sviluppo cognitivo non se¬ 
gua la stessa strada per tutti gli indi¬ 
vidui è notizia appartenente al senso 
comune e tale differenziazione è le¬ 
gata alla influenza di svariati fattori, 
che rallentano o rendono più rapi¬ 
do, a seconda dei casi, tale processo. 
Un enorme numero di ricerche 
socio-psico-pedagogiche ci hanno 
ormai messi di fronte al peso delle 
esperienze storiche, sociali ed eco¬ 
nomiche sullo sviluppo di ogni esse- 
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Seguito listato 1. 

460 PRINT" [<1CRSR U>]DEVI PREMERE LA --> 

"LE$" :GOSUB600: GOTO450 

470 PRINT:PRINT"[<1RVS>]B[<lRVS OFF>] [ 

<1RVS>]E[<lRVS OFF>] [<lRVS>]N[<lRVS 
OFF>] [<1RVS>] I [<1RVS OFF>] [<1RVS>]S[ 

<lRVS OFF>] [<lRVS>]S[<lRVS OFF>] [<1 

RVS>]I[<lRVS OFF>] [<1RVS>]M[<lRVS OFF 

>] [<lRVS>]0[<lRVS OFF>] ! ! ! !":GOSUB 

800 

480 FORT=1T01000:NEXT 

490 PRINT"[<1CLR>]":PR=0:GOTO200 

600 POKEL,15:POKEA,25:POKEH,75 

610 POKEFH,8 :POKEFL,180 

620 POKEW,33 

630 FORT=1T01000:NEXT 

640 POKEW,0 :POKEA,0:POKEH,0 

650 RETURN 

800 POKEL,15 

810 RESTORE 

820 READX$ 

830 IFX$ = "*"THEN8 50 

840 GOTO820 

850 POKEA,9 

860 READX:READY 

870 IFY=-1THENPOKEW,0:RETURN 

880 POKEFH,X:POKEFL,Y 

890 POKEW,17 

900 FORT=lTOl50 :NEXT 

910 POKEW,0 

920 FORT=lTO50:NEXT 

930 GOTO850 

950 DATA*,69,157,78,36,87,182,92,237,104, 

78,117,20,131,106,139,59,-1,-1 

1000 DATAA,0,15,0,0,127,128,1,251,224,3,2 

55,224,7,190,240,7,255,240,7,247,240 

1010 DATA7,127,224,7,239,224,3,255,192,1, 

255,128,0,254,0,0,60,0 

1020 DATA0,60,0,0,60,0,0,63,0,0,60,0,0,60 

,0,0,60,0,0,126,0,0,255,0 

1030 DATAB,0,16,0,0,24,0,0,28,0,0,28,0,0, 

30,0,0,31,0,0,31,0 

1040 DATA0,63,128,0,63,192,0,63,192,0,63, 

224,0,63,240,0,127,252,0,8,0 

1050 DATA0,8,0,255,255,255,127,255,254,63 

,255,252,31,255,248,15,255,240,7,255,224 

1060 DATAC,88,24,0,60,126,0,112,255,0,35, 

255,192,55,195,224,63,195,248,63,195 

1065 DATA252,127,0,254,255,126,255,127,0, 

254,127,255,254,97,255,134,97 

1068 DATA255,134,97,255,134,97,255,134,12 

7,195,254,127,195,254 











Intelligenza artificiale 
e creatività 


re umano. Questo, in parole spiccio¬ 
le, significa che, essendo la crescita 
intellettiva legata, come già detto, al 
processo di adattamento, più espe¬ 
rienze si fanno e migliori sono, mag¬ 
giori sono le possibilità che lo svi¬ 
luppo del bambino sia rapido. Alcu¬ 
ni studi su questo problema hanno 
messo in guardia contro una forza¬ 
tura di questo meccanismo che, an¬ 
che se può portare ad un effettivo 
apprendimento, rende il migliora¬ 
mento intellettivo freddo e sterile o, 
se si preferisce, distrugge la creativi¬ 
tà nel bambino. Altri studi hanno 
permesso di osservare come sembra 
che non esistano differenze sostan¬ 
ziali tra l’attività percettiva del bam¬ 
bino e dell’adulto di fronte a situa¬ 
zioni semplici come la distinzione di 
colori o di forme semplici. Inoltre, 
come l’emotività possa influenzare 
il processo di apprendimento, ini¬ 
bendo o favorendo l’attività percet¬ 
tiva, a seconda di quali meccanismi 
e processi vengano attivati nella ri¬ 
sposta alle stimolazioni provenienti 
dall’ambiente. 

Riepilogando: lo sviluppo cogni¬ 
tivo segue delle tappe definite e il 
passaggio da un livello a quello su¬ 
periore è influenzato dal particolare 
tipo di esperienze fatte dal bambino; 
un’esagerazione nella somministra¬ 
zione di stimoli può determinare un 
indebolimento del processo creati¬ 
vo, essenziale ad un sano sviluppo 
dell’intelligenza; non sembrano es¬ 
serci soverchie differenze nelle atti¬ 
vità percettive semplici tra bambino 
e adulto. 

E il computer? Che possa essere uti¬ 
lizzato in campo educativo è fuor di 
dubbio, il problema è quanto possa 
fare. 

Le nuove tecnologie aprono inte¬ 
ressanti prospettive, grazie alle pos¬ 
sibilità tecniche di queste macchine: 
colore, suono, movimento, e le loro 
combinazioni pressoché infinite, 
possono aiutare a rendere più rapi¬ 
do l’apprendimento cognitivo, pro¬ 
prio per quanto detto sull’influenza, 
in tale processo, della qualità dell’e¬ 
sperienza e sulle minime differenze 


Seguito listato 1. 

1070 DATAI27,195,254,127,195,254,127,195, 
254,127,195,254 

1080 DATAD,1,255,252,3,255,252,7,227,252, 

15.199.252.31.143.252.63.255.252 

1084 DATAI27,255,236,127,255,204,124,127, 

140,124,127,156,124,127,188 

1088 DATA127,255,236,124,127,204,124,127, 

140,124,127,156 

1090 DATA127,255,184,124,127,240,124,127, 
224,124,127,192,127,255,128,127,255,0 
1100 DATAE,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
255,254,0,2,0,0,15,0,0,51,128,0 
1110 DATA35,192,16,67,192,8,131,224,252,2 
55,255,226,255,255,129,127,252,0 
1120 DATA63,160,0,8,32,0,136,32,0,255,254 
, 0 , 0 , 0 , 0 , 0 , 0,0 

1130 DATAF,0,60,0,0,124,0,0,254,0,7,120,0 

,15,17,0,15,207,128,15,207,192 

1140 DATA7,187,192,0,123,128,1,251,0,1,24 

8,0,1,248,0,0,113,192,0,35,64 

1150 DATA0,38,192,0,37,192,0,43,128,0,62, 

0,0,32,0,0,32,0,0,32,0 

1160 DATAG,0,30,0,0,63,0,1,222,224,3,204, 
240,7,229,248,7,241,248 

1170 DATA3,251,240,1,247,224,0,255,192,0, 
193,128,0,65,0,0,99,0,0,34,0 
1180 DATA0,34,0,0,34,0,0,34,0,,054,0,0,20 
,0,0,20,0,0,28,0,0,8,0 

1190 DATAI,63,255,248,31,255,240,31,255,2 

52.15.255.228.15.255.228.7.255.252 

1200 DATA3,255,128,1,255,0,1,255,0,0,254, 
0,0,124,0,0,124,0,0,124,0 

1210 DATA0,124,0,0,124,0,0,56,0,0,56,0,0, 
56,0,0,56,0,0,16,0,0,16,0 

1220 DATAL,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,1,240,0,3,252,132,6,14 

1230 DATA72,13,246,48,27,27,120,26,237,22 

0,58,141,124,54,155,60,118,246 

1240 DATA30,119,14,30,239,248,31,255,240, 

31,255,224 

1245 DATA31,255,252,63,255,254,127,255,25 
5 

1250 DATAM,0,0,32,0,0,48,0,0,56,0,0,60,0, 

0,62,0,0,62,0,0,62,255,255,255 

1260 DATA255,255,255,255,255,255,255,255, 

255,0,0,62,0,0,62,0,0,62 

1270 DATA0,0,62,0,0,62,0,0,62,0,0,0,0,0,0 

, 0 , 0 , 0 , 0 , 0,0 

1280 DATAN,0,0,67,0,7,25,0,12,93,0,28,0,0 

,56,232,0,120,224,0,97,128,0,65,0 

1290 DATA0,97,128,0,97,128,0,97,128,7,255 
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Intelligenza artificiale 
_e creatività 


in campo percettivo tra un bambi¬ 
no anche molto piccolo e un adulto. 
Se un bambino di 2-3 anni non sa 
ancora dare un nome a ogni colore o 
forma, d’altra parte riesce lo stesso a 
distinguerli e questo può essere sa¬ 
pientemente utilizzato nello svilup¬ 
po di programmi educativi per com¬ 
puter. In tutto questo il rischio di 
forzare il bambino è sempre presen¬ 
te, ma non più di quando vengano 
utilizzati mezzi meccanici; l’esagera¬ 
zione, cioè, è un fatto soggettivo, 
legato a chi somministra gli stimoli e 
non ai programmi impiegati. 

Quindi, il computer può, proprio 
grazie alle sue peculiari capacità e 
sempre nell’ambito di una stimola¬ 
zione “normale”, aumentare le pos¬ 
sibilità ricettive dell’utente: un con¬ 
to è giocare con le statiche figurine 
di un abbecedario tradizionale e al¬ 
tra cosa è vedere gli stessi disegni, 
rappresentati con colori sempre di¬ 
versi, muoversi accompagnati da 
una musica di sottofondo. Siamo 
solo agli inizi dello sfruttamento di 
tutto questo e molto deve essere an¬ 
cora fatto, soprattutto per non cade¬ 
re nel pericolo di una nuova realtà 
ossessionante (l’anno Orwelliano 
potrebbe dimostrarsi poi non così 
sballato come molti hanno superfi¬ 
cialmente sottolineato). 

Il programma proposto, quale 
concretizzazione di quanto detto fi¬ 
nora, è frutto di una esperienza limi¬ 
tata e non vuole certo esaurire, nella 
sua semplicità, tutti i problemi legati 
alle possibilità del computer nel 
campo educativo; è solo una propo¬ 
sta comprensibile anche da chi si è 
appena avvicinato a questi proble¬ 
mi. 

L’idea iniziale era di fare un pro¬ 
gramma che potesse essere utilizza¬ 
to da mia figlia di 4 anni, ma che si 
differenziasse dalle decine di giochi- 
ni, tipo labirinto o spaziali: così, in 
considerazione dell’età, ho pensato 
di portare sul video il classico abbe¬ 
cedario. I risultati sono stati subito 
eccezionali: oltre a voler giocare so¬ 
lo con il nuovo programma, ma per 
un tempo sempre inferiore a quello 


Seguito listato 1. 

,224,31,255,252,21,85,84,59,253,252 

1300 DATA255,255,255,118,219,111,63,255,2 

54,29,182,222,15,255,252,7,255,252 

1310 DATAO,0,0,0,0,0,0,0,255,0,3,129,192, 

14,0,112,24,60,24,48,126,12 

1320 DATA96,255,6,192,255,3,96,255,6,48,1 

26,12,24,60,24,14,0,112 

1330 DATA3,129,192,0,255,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

1340 DATAP,0,0,0,0,0,0,0,50,0,0,100,1,1,2 

55,3,15,255,195,57,255,247 

1350 DATAI21,255,255,255,255,254,119,255, 

255,47,255,247,31,255,195 

1360 DATA7,255,131,2,126,129,1,56,64,0,28 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
1370 DATAQ,224,0,7,255,255,255,255,255,25 
5,103,128,6,127,197,6,111,130,6 
1380 DATAI00,0,6,96,128,134,97,192,198,99 
,225,230,103,243,246 

1385 DATA111,249,230,103,240,134,101,208, 
134,103,112,134 

1390 DATA103,112,6,96,0,6,96,0,6,255,255, 
255,255,255,255,224,0,7 

1400 DATAR,0,0,0,0,60,0,1,255,128,7,255,2 

24,15,255,240,15,195,240,31,0,248 

1410 DATA30,0,120,30,0,120,60,0,60,60,24, 

60,60,24,60,60,0,60,30,0,120 

1420 DATA30,0,120,31,0,248,15,195,240,15, 

255,240,7,255,224,1,255,128,0,60,0 

1430 DATAS,255,224,0,1,48,0,1,28,0,1,22,0 

,1,19,0,1,17,192,1,17,96,1,17,48 

1440 DATAI,17,28,255,145,22,255,145,16,25 

5,145,16,255,249,16,255,249,16 

1450 DATA255,249,16,255,255,144,255,255,1 

44,255,255,144 

1455 DATA255,255,248,255,255,248,255,255, 
248 

146 0 DATAT,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,63,255,252 

14 7 0 DATAI27,2 5 5,2 54,255,255,255,252,66,6 
3,249,255,159,251,255,223,3,195,192 
1480 DATAI5,129,240,31,24,248,31,24,248 
1485 DATA31,129,248,31,195,248,31,255,248 
,31,255,248 

1490 DATAU, 7,2 55,24 8,0,8,0,7,119,112,7,25 

5,240,7,119,112,1,0,64,3,157,192 

1500 DATA3,255,192,3,157,192,0,137,0,0,23 

1,0,0,231,0,0,231,0 

1510 DATAO,33,0,0,115,128,0,127,128,0,115 

,128,0,2,0,0,14,0,0,14,0,0,14,0 

1520 DATAV,1,255,128,0,255,0,0,126,0,0,12 
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ntelligenza artificiale 
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utilizzato per altre attività proprie 
dell’età, dopo solo un mese Alice era 
in grado di riconoscere senza errori 
tutte le lettere dell’alfabeto. 

Al di là di questi risultati, la cosa 
più importante emersa è stato l’inte¬ 
resse mostrato per la materia, inte¬ 
resse che si è sviluppato ben oltre le 
limitate possibilità del programma 
in questione, che consistono nell’in- 
segnare a riconoscere le varie lettere 
dell’alfabeto attraverso l’abbina¬ 
mento con la figura di un oggetto 
conosciuto di cui bisogna appunto 
indicare l’iniziale. A tre mesi dal suo 
varo, “Abbecedario” è caduto in 
disuso e ora gli interessi di Alice 
sono rivolti al riconoscimento delle 
singole lettere, non solo tramite l’ac¬ 
costamento con il nome della figura 
nota, ma anche con i loro suoni. 
Ultimamente ha manifestato i primi 
spontanei tentativi di leggere delle 
parole accostando i singoli suoni co¬ 
nosciuti. Questa parte educativa è 
condotta personalmente e non è de¬ 
voluta al computer, non perché que¬ 
sto non sa ancora parlare, ma per¬ 
ché l’idea iniziale di tutto questo 
esperimento era quella di utilizzarci 
nuovi mezzi tecnologici per riuscire 
ad arricchire l’esperienza creativa e 
non certo per abbandonare le re¬ 
sponsabilità che un approccio esi¬ 
stenziale alla vita ci propone. Quin¬ 
di, se il computer oggi, e ancor più 
domani quando potrà parlare, può 
sicuramente rendere più rapido l’ap¬ 
prendimento cognitivo, questo non 
deve significare automaticamente 
l’abbandono di tutte quelle espe¬ 
rienze relazionali senza le quali il 
processo creativo, vero punto di for¬ 
za dell’intelligenza, si spegnerebbe 
irrimediabilmente. 


Alcuni spunti 

per una corretta impostazione 
di programmi educativi 

La prima cosa che bisogna tener 
presente è cosa si vuole ottenere e a 
chi è diretto il programma, perché 


Seguito listato 1. 

6,0,0,126,0,0,126,0,0,255,0,1,255,128 
1530 DATA3,255,192,6,165,96,13,90,176,15, 
255,240,11,189,208,13,90,176 
1540 DATA6,231,96,3,255,192,3,255,192,0,2 
55,0,0,126,0,0,60,0,0,126,0 
1600 DATA"," 


trattando dell’età evolutiva bisogna 
aver ben chiaro il fatto che anche 
minime differenze di età possono 
portare a risultati completamente 
differenti. Se il computer può aiuta¬ 
re nell’anticipare lo sviluppo cogni¬ 
tivo, tale processo deve pur seguire 
una certa gradualità, perché even¬ 
tuali insuccessi, dovuti a troppa fret¬ 
ta, potrebbero avere delle ripercus¬ 
sioni negative sullo sviluppo di tutto 
il problema. 

Deciso cosa fare e per chi, bisognerà 
cercare, durante lo stadio di pro¬ 
grammazione, di rendere l’argo¬ 
mento nel modo più semplice possi¬ 
bile: quindi niente situazioni troppo 
complicate, schermi pieni di dati che 
non possono essere compresi e che 
non farebbero altro che ingenerare 
uno stato di confusione nel bambi¬ 
no. Fare ampio uso di colori e suoni, 
ma sempre in modo semplice e tale 
da permettere al bambino di dar 
luogo a delle associazioni tra gli sti¬ 
moli presentati, con conseguente fa¬ 
cilitazione dell’apprendimento. 

Preparato il programma non resta 
che provarlo per controllarne la va¬ 
lidità e, nel caso qualcosa non vada, 
non farsi problemi a cambiare tutto 
il necessario: perché, se scoprire di 
aver commesso degli errori di valu¬ 
tazione non è niente di grave, il con¬ 
tinuare ad usare un simile program¬ 
ma può portare a delle serie conse¬ 
guenze, difficilmente eliminabili, sul 
futuro rapporto con queste macchi¬ 
ne da parte di quei bambini even¬ 
tualmente delusi. 

Eseguite le correzioni del caso 
non resta che usare quanto prodot¬ 
to, tenendo sempre in mente che le 
possibilità del computer non sono 
nella quantità, che porta immanca¬ 
bilmente al problema della forzatu¬ 


ra del processo di apprendimento 
con le conseguenze già citate, ma 
nella superiore qualità che può esse¬ 
re offerta rispetto ai tradizionali 
mezzi meccanici; qualità che stimola 
il desiderio infantile di fare, di cono¬ 
scere, senza però ricadere in esaspe¬ 
razioni frustranti. 


Sprite con il C 64 e Abbecedario 

Uno dei punti di forza di questo 
computer, oltre alle capacità musi¬ 
cali, è dato dalla possibilità di gesti¬ 
re in modo semplice la grafica ad 
alta risoluzione per la creazione di 
grafici animati. Le possibilità offer¬ 
te da questa tecnica sono varie: dalla 
scelta del colore a quella delle di¬ 
mensioni, dal movimento alla so¬ 
vrapposizione senza annullamento 
di uno dei due disegni entrati in col¬ 
lisione. 

Ma non è di questo che parlere¬ 
mo, anzi il programma del listato 
non è stato concepito per proporre 
un uso “al limite” degli sprite, argo¬ 
mento tra l’altro già trattato in ampi 
articoli apparsi su Personal Softwa¬ 
re. Questo non deve far pensare a 
qualcosa di semplice o, peggio, sem¬ 
plicistico: se tale tecnica non è stata 
sfruttata al massimo è solo perché 
un suo uso anche limitato può per¬ 
mettere di raggiungere dei risultati 
apprezzabili e, nel contempo, più 
comprensibili e quindi immediata¬ 
mente utilizzabili anche da chi ha 
appena iniziato a usare un compu¬ 
ter. 

Quello che accade, una volta dato il 
RUN, è il succedersi sullo schermo 
di una serie di disegni raffiguranti 
vari oggetti, scelti di volta in volta a 
caso dal computer. 
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Ognuna di queste figure è definita 
con la tecnica degli sprite e dopo 
ogni apparizione viene chiesta l’ini¬ 
ziale dell’oggetto raffigurato: se la 
risposta è corretta, si passa ad un 
altro disegno, se si sbaglia, si può 
ritentare e al terzo eventuale errore 
il computer suggerisce la lettera 
esatta da battere sulla tastiera, il tut¬ 
to accompagnato da suoni diversi, 
ad indicare la risposta esatta o l’er¬ 
rore. 

La prima domanda che sorge spon¬ 
tanea di fronte a questo programma 
è come possano essere comprese le 
istruzioni date dal computer da par¬ 
te di chi deve ancora imparare a leg¬ 
gere e scrivere. Me l’ero posta an¬ 
ch’io durante l’impostazione del 
programma e la soluzione, teorica¬ 
mente spiegata da quanto detto pre¬ 
cedentemente sullo sviluppo cogni¬ 
tivo, mi è stata provata dalla prati¬ 
ca: i bambini ai quali è stato sotto¬ 
posto il programma hanno dimo¬ 
strato di non soffrire la cosa, anzi 
non hanno nemmeno mostrato dif¬ 
ficoltà nel comprendere immediata¬ 
mente il meccanismo del gioco. In 
tutto questo niente di misterioso: i 
bambini non vivono le parole che 
vengono loro presentate dal compu¬ 
ter come dei simboli astratti, ma co¬ 
me delle immagini, delle forme di 
cui colgono solo i dati generali, co¬ 
me la dimensione o il colore, e alle 
quali associano un preciso significa¬ 
to. In questo modo, pur non sapen¬ 
do leggere, riescono a rispondere in 
modo immediato e apparentemente 
stupefacente ai messaggi inviati loro 
dal computer. 

Così: 

• “PROVA” (parola corta e la pri¬ 
ma che appare dopo il disegno) sta 
per “PUOI INIZIARE IL GIO¬ 
CO”; 

• “RIPROVA” (parola più lunga 
che appare solo in un secondo tem¬ 
po, accompagnata da un suono sor¬ 
do) sta per “HAI SBAGLIATO, 
RITENTA”; 

• “LA LETTERA GIUSTA È LA 
— x —” (frase lunga che appare do¬ 
po vari errori) sta per “VISTO CHE 


NON LO SAI TE LO DICO IO”; 
• “DEVI PREMERE LA — x 
(frase più corta che appare in secon¬ 
da battuta) sta per “FORZA ZUC¬ 
CA!!!”. 

Questo meccanismo è poi rafforzato 
dai particolari suoni associati alle 
varie situazioni di risposta corretta 
o sbagliata. 

Conclusione 

Il programma non è complesso ed 
è quindi aperto ad ogni tipo di mi¬ 
glioramento dettato dalla fantasia 
di ognuno: per richiedere, oltre all’i¬ 
niziale, anche l’intero nome dell’og¬ 
getto bastano pochi DATA e alcune 
minime modifiche al programma. 
Oppure si potrebbe preparare una 
seconda lista di oggetti per rendere il 
gioco più vario, ma ad ognuno l’o¬ 
nore e l’onere di aggiungere quelle 
varianti che più interessano. Quella 
che spero venga accolta è la filosofia 
del progetto, e cioè che il computer 
deve e dovrà essere sempre conside¬ 
rato un mezzo, pur validissimo, ma 
mai divenire il fine della nostra esi¬ 
stenza; intelligenza artificiale sì, ma 
purché resti sempre al servizio dello 
sviluppo della creatività umana e 
non ne diventi, invece, l’annientatri- 
ce. 

In questo modo avremo veramente 
la possibilità di realizzare un mondo 
a misura d’uomo: altrimenti le pre¬ 
visioni Orwelliane avranno modo di 
materializzarsi nel modo più com¬ 
pleto. 
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COME FUNZIONA IL CONCORSO? 

Prima di entrare nel dettaglio del Regolamento che per altro consigliamo di 
leggere attentamente, descriviamo il meccanismo di questo strabiliante con¬ 
corso, organizzato dalla J.C.E. 

CI preme innanzitutto chiarire che la Giuria è il pubblico, ossia I lettori di 
Sperimentare con l’Elettronica e il Computer, e ciò sottolinea la filosofia di 
dialogo e di fiducia, in cui la redazione non si pone, come in altri casi spesso 
avviene, nella presuntuosa posizione di infallibilità! 

Ogni mese a partire dal numero di Giugno 1984, la rivista pubblicherà i quat¬ 
tro migliori programmi pervenuti in redazione, e giudicati dalla nostra com¬ 
missione tecnica. I lettori troveranno quindi i listati di questi quattro program¬ 
mi ed un tagliando sul quale scriveranno il titolo del programma che sarà 
parso più meritevole, per qualsiasi motivo. 

Fra tutti i lettori che avranno inviato il tagliando sarà estratto, ogni mese, un 
computer Sinclair Spectrum 16 K! ! ! 

Questa procedura si ripeterà per sei mesi, quindi sui numeri di Giugno, 
Luglio/Agosto, Settembre, Ottobre, Novembre e Dicembre, quindi ogni mese 
saranno pubblicati quattro programmi, il tagliando da spedire e fra i tagliandi 
sarà estratto uno Spectrum 16 K. 

Alla fine di questa prima fase usciranno, dunque sei programmi classificati al 
primo posto in ciascuna delle sei “batterie”. 

Noi li sottoporremo al giudizio dei lettori, pubblicando sul numero di Marzo 
1985 un nuovo tagliando sul quale andranno indicati, in ordine di preferenza, 
tutti i sei programmi. I primi tre saranno premiati, e fra i lettori sarà estratto di 
nuovo uno Spectrum 16 K. 

Mica male, eh, che ne dite? 

Il regolamento è riportato sulla rivista “Sperimentare con l’Elettronica e il 
Computer”. 


1° CONCORSO 
SINCLUB 1984-85 

I Sinclair Club e i Sinclairisti sono spes¬ 
so vere e proprie fonti di idee per il mi¬ 
glior impiego del nostro beneamato 
spectrum; è un peccato che la maggior 
parte di queste idee restino nel casset¬ 
to, o nel migliore dei casi vengano resi 
noti alla ristretta cerchia degli amici. 
Uno degli scopi del Sinclub è proprio 
quello di dare le ali a chi le merita. Da 
qui l’idea di un concorso a premi, orga¬ 
nizzato dalla J.C.E., aperto a tutti. Il 
concorso inizierà il 1° Aprile e termi¬ 
nerà Il 31 Dicembre 1984; tutti 
potranno inviare alla redazione di 
Sperimentare con l'Elettronica e 
il Computer entro il suddetto perio¬ 
do loro programmi più interessanti ed 
originali. 

10) I programmi devono essere me¬ 
morizzati su cassetta e devono esse¬ 
re spediti alla redazione di Sperimen¬ 
tare con l’Elettronica e il Computer al 
seguente indirizzo: 

J.C.E. - CONCORSO SINCLUB 
VIA DEI LAVORATORI, 124 
20092 CINISELLO BALSAMO (MI) 
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Rita Bonelli 
Daria Gianni 

Alla scoperta del VIC 20 
architettura e tecniche 
di programmazione 

Un libro atteso da quanti - e 
sono moltissimi-hanno 
acquistato uno dei Personal 
Computer del giorno: 
il VIC 20 Commodore. 

Naturale completamento del 
precedente "Impariamo a 
programmare in BASIC con 
il VIC/CBM”, questo 
manuale può soddisfare 
diverse esigenze. 

Ci sono capitoli che trattano 
i file su disco e cassetta, la 
stampante VIC 1515, alcuni 
cartridge come VIC STAT, 

VIC GRAF, SUPER 
EXPANDER. Un’intera parte 
è dedicata alle porte I/O, al 
chip d’interfaccia video, al 
linguaggio macchina del 
calcolatore. Un’ultima 
importante annotazione:tutti 
i programmi che compaiono 
nel testo sono stati provati 
sul calcolatore e sono 
disponibili su cassetta 
e floppy disk. 

300 pagine 
Lire 22.000 
Codice 338 D 


Il manuale base 
per l’uso del VIC 20 


tiìta Bonelli 
Daria Gianpi 
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CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


| n° copie 

codice 

Prezzo unitario 

Prezzo totale 


338D 

L. 22.000 



Desidero anche I programmi su: 

□ Floppy disk a L 25.000 

□ cassette a Li 5 000 


□ Pagherò contrassegno al postino 
il prezzo indicato più L. 2000 per 
contributo Asso spese di spedizione. 


Condizioni di pagamento con esenzione del contributo spese di spedizione 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n.11666203 a voi intestato 

□ Allego fotocopia di versamento 

_ su vaglia postale a voi intestato 


GRUPPO 

EDITORIALI 
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Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


Cognome 


Cap 


Città 


Firma 


Spazio riservato alle Aziende. SI richiede l'emissione di Iattura 
Parlila I.V.A. I I I I I _I_I_I_I_1_I_I 














































w alter il raccoglimele 


Linea 635 

Carattere grafico L-K-N-M-D-E-F-G 

Linea 930 

Carattere grafico H 

Linea 940 

Carattere grafico O 

Linea 1200 

Carattere grafico A - B 

Linea 1210 

Carattere grafico C 

Linea 3350 

Carattere grafico 1 - J 

Linea 3355 

Carattere grafico P - Q 

Linea 5180 

Carattere grafico R - S - T - U 


Tabella 1. Lista dei caratteri grafici da digitare nelle varie linee del listato. 


Un divertente gioco 
per il vostro Spectrum 

di Ivano Parbuono 

I l gioco presentato è un 
programma con una grafi¬ 
ca molto semplice e pulita, 
senza meccanismi particolari ed ef¬ 
fetti strani. Piuttosto questo pro¬ 
gramma vuole rivolgersi soprattutto 
ad una certa cerchia di piccoli utiliz¬ 
zatori dello Spectrum. L’idea è nata 
dalla necessità di trovare un gioco 
simpatico e nello stesso tempo spiri¬ 
toso, per poter far giocare il mio 
bambino che ha 4 anni; non che non 
riesca a giocare con quelli più com¬ 
plessi, ma ne esistono alcuni troppo 
complicati anche per un adulto. 

Come dicevo è abbastanza sem¬ 
plice e facile anche per i più piccoli, e 
chissà quanti saranno i piccoli utiliz¬ 
zatori degli Spectrum di papà! 

Il gioco si svolge in sintesi così: ini¬ 
zia con una breve presentazione ac¬ 
compagnata da una dolce musichet¬ 
ta per passare poi direttamente all’a¬ 
zione. 


Le istruzioni sono facoltative: basta 
premere N per saltarle. Quindi ini¬ 
ziano a cadere delle mele sono in 
totale 50, mentre Walter con un sac¬ 
co in mano deve cercare di racco¬ 
glierne il più possibile. Ogni mela 
che cade, oltre ad incrementare il 
punteggio e il contatore delle mele 
cadute fino a quel momento, cambia 
anche il colore di tutto il gioco ren¬ 
dendolo così più vivace. Se si riesce a 
raccoglierle più di 30 mele prima che 
terminano le 50 messe a disposizio¬ 
ne, inizierà una musichetta di gioia e 
lo schermo si pulirà per lasciare spa¬ 
zio ad una meravigliosa spiaggia do¬ 
ve c’è un mare blu, gli ombrelloni e 
un sole caldissimo. Il nostro Walter 
con la sua scorta di cibo per quel 
giorno non avrà preoccupazioni esi¬ 


stenziali e potrà tranquillamente 
spassarsela. Mentre invece se è stato 
più sfortunato, ovvero ha raccolto 
meno di 30 mele sarà debole e non 
facendocela più a camminare, 
un’ambulanza lo porterà all’ospe¬ 
dale creando preoccupazioni nei 
dottori e nei suoi stessi parenti. Ma 
niente paura si può sempre ritentare 
sperando di essere più fortunati. 
Ecco ora un’analisi delle varie linee 
del listato, per rendere più compren¬ 
sibile le routine del programma. 
Inizieremo con le linee che vanno 
dalla 300 alla 520, le quali hanno il 
compito ben preciso di definire i ca¬ 
ratteri grafici di tutto il programma, 
per passare alle linee che vanno dal¬ 
la 600 alla 640 che realizzano la pre¬ 
sentazione iniziale del gioco. Quindi 
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Figura I. Presentazione del gioco. 

Figura 2. Rappresentazione grafica del gioco in svolgi¬ 
mento. 
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IN EDICOLA» 

OGNI SETTIMANA, 

TI ASPETTANO 
I MIGLIORI PROGRAMMI 

PER IL TUO 

PERSONAL COMPUTER! 


Dove? Su PAPERsoft! Il primo settimanale di software per il tuo personal computer! 
PAPERsoft, a sole 1.000 lire, pubblica settimanalmente i migliori programmi per: 
COMMODORE 64, VIC 20, APPLE II, Ile, Ile, TI-99, SPECTRUM, 

.... e tutti i personal più diffusi. 



Richiedi subito la tua copia 
di PAPERsoft 
all’edicolante di fiducia! 
PAPERsoft è per te! 


PAPERsoft è un'idea J.soft Editrice Via Rosellini, 12 - 20124 Milano - Tel. 02/6888228-683797 









...UN APPUNTAMENTO SETTIMANALE DA NON PERDERE 
CON I MIGLIORI PROGRAMMI PER IL PERSONAL COMPUTER! 


PAPERsoft È PIÙ ECONOMICO 

A sole 1.000 lire, ogni venerdì trovi in edicola 
una selezione di programmi veramente seri e ot¬ 
timamente listati, come è nello stile J.so/t. 




PAPERsoft È PIÙ UTILE 

Non solo semplici giochi, ma tutto ciò che può in¬ 
teressare gli appassionati di software per perso¬ 
nal computer: routines, Utilities, piccoli trucchi 
preparati per te con tutta la professionalità 

J-s oft. 


PAPERsoft È PIÙ ISTRUTTIVO 

Leggendo PAPERsoft non solo potrai divertirti a 
caricare i programmi, ma potrai convertirli da 
una macchina all'altra e inviarli in redazione. I mi¬ 
gliori saranno pubblicati e anche tu potrai entra¬ 
re a far parte dei collaboratori della più simpatica 
tra le riviste italiane di personal computer. 

PAPERsoft È PIÙ PRATICO 

Pubblicato in formato diverso da quello di una ri¬ 
vista tradizionale, PAPERsoft è molto più maneg¬ 
gevole. Ogni fascicolo può essere raccolto e con¬ 
servato con facilità. I programmi, tutti originali, 
sono listati con stampante a margherita, per age¬ 
volarti nella digitazione. 

CHE ASPETTI? CORRI IN EDICOLAf PAPERsoft È PRONTO PER TEt 




PAPERsoft è in edicola ogni venerdì fino al IO agosto. 
Dopodiché.vacanza e per tutti appuntamento al 24 agosto. 


PAPERsoft è un'idea J.so/t Editrice Via Rosellini, 12 - 20124 Milano - Tel. 02/6888228-683797 
















Figura 3. Arrivo dell’ambulanza per caricare Walter. 



Figura 4. Arrivo dell’ambulanza all’ospedale. 




Figura 6. Rappresentazione grafica del mare con l’ar¬ 
rivo di un amico di Walter. 
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Figura 5. Dialogo di un amico con il dottore. 


Figura 7. Dialogo fra i due riguardo ai programmi 
della giornata. 






















































Walter 

raccoglimele 


ci troviamo di fronte alla linea 700 
che con un GOSUB ci rimanda alla 
linea 7000: questa linea ci domanda 
se vogliamo o no le istruzioni. Se 
rispondiamo N la linea 7010 ci ri¬ 
manda dove avevamo lasciato il 
programma precedentemente e cioè 
alla linea 800. 

Il loop che va dalla linea 7060 alla 
7120, fa sì che compaiano sul video 
come scritte rotanti, la descrizione 
dello svolgimento del gioco con 
pausa di 5 tra una lettera e l’altra. 

La linea 1000 crea la caduta, in 
funzione di RND, delle mele e la 
colorazione sempre in funzione 
RND di tutto il gioco e del quadran¬ 
te che la racchiude, realizzato per 
mezzo dei PLOT e DRAW di linea 
1010 . 

Mentre invece le linee che vanno 
dalla 1100 alla 1350 determinano la 
caduta delle mele e la creazione di 
Walter con il relativo sacchetto 
pronto a raccogliere la mela caduta 
e distinguere se è fuori o dentro il 
sacco (anche quelle che Walter ri¬ 
esce a prendere con la testa sono 
considerate valide), incrementando 
anche il punteggio. La linea succes¬ 
siva, cioè la 1400, affida il movimen¬ 
to di Walter verso destra o sinistra ai 
tasti 5 e 8. Le linee 1630 e 1640 effet¬ 
tuano dei confronti: la prima con¬ 
trolla che le mele cadute non siano 
ancora 50 per far continuare il gio¬ 
co, mentre la seconda controlla che 
quelle raccolte non siano 30. Se le 
mele sono 50 e quelle raccolte sono 
meno di 30 il programma manda 
alla linea 3000, che fa entrare in sce¬ 
na un’ambulanza per raccogliere 
Walter e portarlo all’ospedale (linee 
3200 - 3300). 

Proseguendo nell’analisi, la linea 
3320 fa ricomparire in velocità a si¬ 
rena accesa davanti all’ospedale, 
l’ambulanza con Walter. 

Le linee che vanno dalla 3320 alla 
3356 fanno apparire il dottore e suc¬ 
cessivamente un amico di Walter 
che si informa delle sue condizioni e 
inizia un dialogo con il medico. A 
completare tutto ciò la linea 3360, fa 
in modo che compaia la scritta “Pre- 



Figura 8. Schema a blocchi del programma. 
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Walter 
il raccoglimele. 


Listato 1. Il programma “Walter il raccoglimele’’. 


•a” TO USR "u"+7 
POKE a,use r 


300 FOR a =U3R 
310 READ user: 

320 NEXT a 
350 ORTO 56,68,170,130,154,100, 
S6,202 

360 0RTR 207,124., 03,68,130, 130 , 
68,231 

370 DATA 264. ,60,196,126,126,126 
,126,60 

380 DOTO 0,0,255,255,251,241,25 
1,251 

390 DOTO 0,0,224,224,224,252,22 
8,228 

400 DRTR 255,255,255,255,135,18 
3 <18 0 

4 . 10 'dRTA 228,250,256,255,134,18 
2,48,0 

420 DRTR 82,52,24,124,254,254,2 
54,124 

430 DRTR 255,126,165,129,90,66, 
36,126 

440 DRTR 204,124,60,68,130,130, 
68,238 

450 DRTR 224,248,252,254,254,26 

460 6flTfl a/?,:?,®,®,©,;* *, 1 _ 

470 DRTR 16,14,4,0,0,0,192,224 
480 DRTR 2,2,2,2,2,2,31,63 
490 DRTR 0,128,112,120,124,124, 
60,4 

495 DRTR 24,52,62,60,24,56,92,1 
54 

500 DRTR 57,24,20,18,49,34,35,4 

8 

505 DRTR 128,64,32,19,15,15,31, 

3 510 DRTR 2,132,136,208,226,226, 

a 5lé DRTR 265,31,15,7,11,17,33,8 
5 

520 DRTR 255,248,240,240,200,4, 
2, 1 

600 BORDER 2: BEEP 1,5: BEEP 2, 
12 _ 

610 PRINT AT 3,13;INK 3; BRIGH 
X 1;"WALTER";RT 6,1; INK 4; FLR8 
HI, "IL RACCOGLIMEL 
E ": FLASH 0: BEEP .6,5: BEEP 2 
,24 

615 PRINT RT 8,1; INK 

: INK 1 

" »i»iiil»»ii»m 

IIIIIIIIJJJ": INK 2: PRINT RT 14 
,3," REALIZZAZIONE DI 

IUANO PRRBUONO 

nt •• min 

625 BEEP 1,12: BEEP .9,24: BEEP 
1,9 

635 PRINT RT 20,10; INK 5; “ ; 

RT 21,10; "X*“; RT 20,22; INK 4, "* 
Ifc" ; RT 21,22; "X*"; RT 20, 15, INK 2 
21,15; INK 2;"§S“ 

640 PAUSE 200: CLS 
700 GO SUB 7000 

800 CLS : BORDER 7: PAPER 7: CL 
S : LET 1-0: LET C-15: LET p=0 
850 BORDER 7: PAPER 7 
900 INK 3: PLOT 23,145. DRAU 50 
,30: PLOT 47,160: DRAU 52,15: PL 
OT 80,152: DRAU 80,16: PLOT 112, 
128: DRAU 12,32: PLOT 99,175: DR 
RU 61,-40 

910 PLOT 151,144: DRAU 64,20 
930 PRINT AT 2,6; INK 4;"*",RT 
g,l5; INK a;"*";AT 4,is; INK 6;" 

*940 PRINT RT 3,15; INK 6;"V;RT 
2,7; INK 4;"V;AT 0,12; INK 4; " 
V;flT 4,19; INK 3;"V*;RT 3,22; I 
NK 6;"*",AT 3,10, INK 4;"*";RT 1 
,19; INK 4;-v 

1000 LET f=INT fRND+28) -hi : INK R 
ND*6: LET l-l+l: PRINT RT 0,0;“# 
t 

1010 PLOT 0,0: DRAU 255.0: PLOT 


Seguito listato I. 

255,0: DRAU 0,175: 

: DRRU -255,0: PLOT 
0,-175 

1100 FOR b=6 TO 19 
1150 PRINT RT b,f;" 
7,05: PRINT RT b + 1,7 
1200 PRINT RT 20,c; 
RT 21, c; ” ÌS " 

1210 PRINT RT 21,C+2 
1300 IF b+3=20 AND C 
3-20 AND C+2-7+1 OR 
+ 2 = 7 THEN LET p-p+1 
1350 PRINT RT 0,24; 

" ; P 

1400 LET C = C + (INKEY $ 
8)-(INKEY*="5" AND c 
1500 NEXT b 
1600 PRINT RT b , 7 ; " 


PLOT 255,175 
0,175: DRRU 


”: BEEP .00 

; 

INK l; " © 

; INK 2; "B " 
+ 1 = 7+1 OR b + 
b+3=20 AND C 

INK 0;"PUNTI 

= "8" RND C —2 
> 0 ) 

";RT b + 1,7 ; 

1630 IF l-50 THEN GO TO 3000 
1640 IF P-30 THEN GO TO 5000 
1658 GO TO 1000 

3000 FOR s=l TO 31: BEEP .05,08: 

PRINT RT 20, s; INK 2;"*,“;AT 20, 
S-2; INK 2;" *J" : PRINT RT 21. S; 
INK 2; "B*“ ; RT 21, s-2; INK 2;" Bl" : 
NEXT S 

3200 INK 1: CLS : BORDER 5: PLOT 
8,48. DRRU 100,0: PLOT 108,48: 
DRRU 0,48 „ 

3210 PLOT 108,96. DRRU 42,0: PLO 
T 150,96: DRRU 0,-48: PLOT 150,4 
8: DRRU 100,0 _ „ 

3230 PLOT 24,88: DRRU 0,40: PLOT 
24,128: DRRU 32,0 
3240 PLOT 56,128: DRRU 0,-40: PL 
OT 56,88. DRRU -32,0 
3260 PLOT 200,88: DRRU 0,40: PLO 
T 200,128: DRRU 32,0 
3270 PLOT 232,128: DRRU 0,-40: P 
LOT 232,88: DRRU -32,0 
3300 PRINT RT 8,12; FLASH 1; - OSP 
EORLE"; FLASii 0 
3310 PAUSE 100 

3320 INK 0: FOR S=1 TO 16: BEEP 
.05,05: PRINT RT 18, S ; INK 2;"»," 
;RT 18,s- 2; INK 2;" *r : PRINT RT 
19, s; INK 2; RT 19, s-2; INK 

2; “ P": NEXT s 

3350 PAUSE 80: PRINT RT 18,22;"E 
" ; RT 19,22; INK 3;"0", AT 17,18; 
ink 0;"presto presto": PAUSE 100 
- PRINT AT 17.18;"e' «olio grave 
"; PAUSE 90: PRINT RT 17,18," 

3355 FOR S=1 TO 18: PAUSE 5: PRI 
NT RT 20,S ; " i": PRINT RT 21.s; 
INK l; " fi ": NEXT S: PRINT RT 20 
,20; INK 0; "colie sta'?". PAUSE 7 
0: PRINT RT 20,20;“dica dottore" 
: PAUSE 100 

3356 PRINT AT 20,20;" 

";RT 17,18;" e' grave ma " : Pfi 
USE 100: PRINT RT 17,18;" lo sa 
lvere*o";RT 20,20;" 

”: PAUSE 100 
3360 GO TO 6000 

5100 CLS : BORDER 5: INK 5. PLOT 
8,0: DRAU 20,18: PLOT 28,18: DR 
RU 57,-12: PLOT 85,6: DRAU 67,10 
5110 PLOT 152,16: DRAU 58,-8: PL 
OT 210,8: DRAU 45,11 

5120 PLOT 40,26: DRAU 42,-10: PL 
OT 96,8: DRAU 54,18: PLOT 192,20 

: DRAU 38,-5 _ 

5130 PLOT 6,24: DRAU 34,12: PLOT 
40,36: DRRU 38,-14: PLOT 78,22: 
DRRU 82,16 

5140 PLOT 160,38: DRRU 55,-20: P 
LOT 215,18: DRRU 33,5 
5160 PLOT 200,38: DRAU 10,-8. PL 
OT 210,30: DRRU 30,5 

5180 INK 0: PRINT RT 0,29^ INK 6 



I J.X / A-, 4MP» X / ^ / r» i » 7 

2;"m";AT 10,12; ink 2;"X";Rt 1 

5,25; INK 4;"1fc";RT 16,25; INK 4 
;"X r ";PT 14,16; INK 6;" Ifc" ; RT 15 
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Seguilo listato 1. 

,16; INK 6;"J.'";RT 16 , 0 ; INK 3;" 
1Ì";flT 17,®; INK 3; " J. v " 

5205 FOR S*1 TO 31: BEEP .091,01 
: BEEP .06,07 : BEEP .028,03 : PRI 
NT RT 12,»;'’ A lai <•» <■?": PRIN Z 

RT 13,*; INK l; '• £ : NEXT S: P 

RINT RT 0,12;" ";RT 0,13;" 

5210 PRINT RT 12,14.; "§" ; RT 13,14- 
; INK l;"à": PRINT RT 13,2;" 

5215 BEEP .4-,07: BEEP .8,09: PRI 
NT RT 11,10;"O9S Ì prendo il sole 
“: BEEP ,4,07: BEEP .2,08: PRUSE 
100: BEEP .4-, 08: BEEP .7,04-: PR 
INT RT 11,10;" e questa sera ? 

5218 BEEP .04-, 04-: BEEP .5,07: PR 
USE 50 : BEEP .04-, 03: BEEP .6,03: 
PRINT RT 13,2;" donne e ";RT 14- 
,2;"ChSipagne : BEEP .03,05: BEE 
P . 4- . 09 BEEP .2,2: BEEP .9,9 
6000 INPUT "PREMI ENTER PER GIOC 
RRE RNCORR"; LINE a* 

6100 C-LS : BORDER 7: PRPER 7: GO 

7000 S PRINT INK 0; FLRSH ljRT 12, 


Seguito listato l. 

8;"ISTRUZIONI »/n": FLRSH 0: INP 
UT b* 

7005 CLS 

7010 IF b*="n" THEN GO SUB 800 
704-0 LET f =0 

7050 INK 2: LET a*="Devi prender 
e le »e le che cadono, ne hai a d 
ìsposizione 50, se ne prendi tcn 
o di 30 rischi di «orice di rane 
e non stai piu' in piedi una ** 
buianza ti porterà' all'ospedale 
, se invece superi la quantità' 
di 30 hai una buona riserva di c 
i bo e puoi spassartela 
RUGURI 

7060 FOR ì=l TO LEN a* 

7080 PRINT RT 10, (32-i AND i <32) 

; a* Cfi -31 OR i <32) TO iJ: BEEP . 
005,35 

7100 IF f-1 RND i<32 THEN PRINT 

RT 10,0;a $(LEN a*-31 + i TO LEN a* 

): BEEP .005,35 

7110 PRUSE 5 

7120 NEXT i 

7150 PRUSE 50 

7160 RETURN 


mi ENTER per giocare ancora”. 
Dopo aver analizzato la situazione 
creata se non si era raggiunto il pun¬ 
teggio di 30 al termine delle 50 mele 
a disposizione, vediamo ora cosa 
sarebbe successo se questo punteg¬ 
gio fosse stato raggiunto, riprenden¬ 
do il programma dalla linea 1640. In 


questo caso vengono eseguite le li¬ 
nee che vanno dalla 5100 alla 5218. 
Le linee dalla 5100 - 5200, permetto¬ 
no che appaia sul monitor un di¬ 
segno che rappresenta il mare con il 
sole, spiaggia e ombrelloni. Invece le 
linee che comprendono la 5205 e 
5218, determinano l’arrivo alla 


spiaggia di Walter e un suo amico, 
che canticchiano accompagnati da 
una musichetta e programmano il 
resto della loro giornata. Dopo una 
breve pausa, per mezzo sempre della 
linea 6000, apparirà la scritta “Pre¬ 
mi ENTER per giocare ancora”. 


È vero: piccolo è bello! 


Alla scoperta dello 
ZX SPECTRUM 

a cura di Rita Bonelli 

ZX Spectrum è l'ultimo nato della famiglia Sinclair. È un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 

Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 

320 pagine. Lire 22.000 Codice 337 B 
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tampiamo 
le ricevute fiscali 


Una utile applicazione 
per il vostro 
Commodore: 
PET/CBM, C 64 
e VIC 20 


di Stefano De Monte 


A lcune nuove disposizioni 
fiscali italiane hanno ob¬ 
bligato commercianti, ar¬ 
tigiani ed altre categorie produttive 
ad emettere ricevute fiscali per ogni 


prestazione o merce fornita. È quin¬ 
di nato il problema di come compi¬ 
lare le ricevute: comperare uno o più 
costosi registratori di cassa oppure 
un personal computer? Questo arti¬ 
colo vuol venire in aiuto sia a coloro 
che, per altri motivi professionali, 
posseggono già un personal (e sono 
in molti!), sia a quanti potranno così 
finalmente essere spinti all’acquisto 
di un computer. L’utente può avere 
varie esigenze, a seconda del suo ti¬ 
po d’esercizio. Tuttavia le esigenze 
si possono dividere in due categorie: 
la ricevuta fiscale deve essere compi¬ 
lata al momento (i commercianti), 
oppure a scadenze prefissate (picco¬ 
le aziende di servizi). Esamineremo 
quindi due programmi leggermente 
diversi, ognuno dei quali soddisfa 
ad una categoria di esigenze. 


Il primo programma 

Il primo programma è stato con¬ 
cepito per stampare le ricevute fisca¬ 
li di un negozio-laboratorio fotogra¬ 
fico tuttavia con una semplice modi¬ 
fica degli articoli sarà possibile adat¬ 
tarlo a qualsiasi utente. 

Il suo funzionamento è abbastanza 
semplice: all’inizio della giornata, 
caricato il programma, inseriamo la 
data (linea 70) e l’ultimo numero di 
ricevuta (80); d’ora in avanti il com¬ 
puter non avrà più bisogno di questi 
dati, infatti incrementerà automati¬ 
camente il numero della ricevuta 
(115) e su questa stamperà la data 
scelta. 

A questo punto apparirà sullo 
schermo una lista di dieci articoli 
con vari codici (ma voi ne potrete 


Listato 1. Listato BASIC relativo alle ricevute fiscali giornaliere. 

20 rem##***#****#****#***####**#*#** 

25 rem ricevute fiscali 9iornatiere 
30 rem*#****#**#****####***##***##** 

50 dimt(20) 

60 Print"fl" : Printtab(4>"SstamPa ricevute/bolle"TrintTrintTrint 
70 inPut"data 99/mm/aa";d$ : Print 
75 if' len(d$X>89oto70 

80 inPut-"Sul timo numero ricevuta'L’nn Trint Trint 
115 nn=nn+l 

120 Print"H"Trinttab(5)"stampa ricevute"; '• Printd$; TrintnnTrint 
130 Printtab<6)"tiPo lavorazione" 

135 i=i+l 

140 Print"118st.col. 10xl5"J :Printtab<18>"S6ist.col.20x25" 'Print 
150 Print"B2^st.col. 10x10"; : Printtab<18)"S7&st.col.30x40" : Print 
160 Print"S32srist.col. 10x15"; Trinttab<18)" , a2&sv.ekt. 135x36" :Print 
170 Print"S4$rist. co1.10x10" ; Trinttab<18)"S9$st.da dia. 10x15 sprint 
180 Print"S5&st.col. 13x18"; 'PrinttaM 17>"10:$solo sviluppo ne9. " 

250 inPutl 
260 reada,b$,b,c 
270 ifa=l9oto300 
280 ifaO999oto260 

290 ifa=99thenPrint"errore" : 1=0 : restore : 9otol40 
300 Print"H" : Pri nttab (. 5 ) b$ : P r i nt : P r i nt 
310 i np ut " 4 uant i ta ; n Tri nt Tri nt 
320 Printtab<5)"Scon sviluppo s/n"; : inPuty$ 
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Stampiamo 
le ricevute fiscali 


Seguilo listalo I. 


330 t(i)=n#b : Print 

350 P r i nttab ( 2 ) " V i mP or to V " t ( i ) : Pr i nt : P r i nt 
360 P r i ritta,b (18)" conferma s/n 11 ; : i nP utx$ 

370 ifx$="n"thenrestore : t(i)=0 : Print"S" : 9oto140 
380 Print : Print : Print 

390 P r i nt " 8" : P r i nttab < 5 ) " oP eraz i one i n corso 11 

400 ifiOl9oto480 

410 oPen4, 5 

415 for.j = lto5 

420 Print#4 

430 next 

440 w$=st r$ (nn ) : w= 11-1 eri<w$) 

450 Pr int#4 : Print#4 : Print#4 : Print#4 

468 P rint#4,tab < 23>nn; : Print#4,tab(w)d$ : Print#4 

470 Pr in t#4 : P r i nt#4 •' P r irit#4 : P ri nt#4 

480 ll=len(b$) : 4l$=strf(t(i)) : 42$=str$(n) 

490 I2=len(41$):I3=ler.(42*) 

500 v1=33—11—13 : v2=8-12 

510 Print#4,b$; Print#4,tab(vl)n; : Print#4,tab(v2)t(i) 

511 ifa$="n"9oto529 

515 Print#4,"sviluppo ne9."; :Print#4,tab<19)"1"; : Print#4,tab(5)"1800" 

520 i = i + l : t(i)=1800 

529 Print : Print- : Print : Print 


530 inPut"altre lavorazioni s/n";v$ 
540 ifv$="s"thenrestore : 1=0 : 9otol20 
550 kk=15-i 
560 f'or j'2=ltokk 


570 Print#4 


580 

590 

600 


next 

tt=t(1)+t(2)+t(3)+t<4)+t<5)+t(6)+t<7)+t<8)+t<9)+t<13)+t(l1)+t(12)+t(13) 
43$=str$<tt) 14=len(43$) : v3=42-14 


610 P rint#4 , tab(v3)tt 
620 forh=lto5 
630 Print#4 
640 next 


650 close4 

660 h=0 : i =0 : -i =0 •' j 2=0 

670 fori=ltol3 
680 tCi)=0 
690 next 

700 i=0 : nestore : 9oto115 
1000 datai,"st.col.10x15",350,0 
1010 data2,"st.colore 10x10",350,0 
1020 data3,"rist.colore 10x15",500,0 
1030 data4,"rist.colore 10x10",500,0 
1060 dataS,"st.colore 13x18",1250,0 
1070 data6,"st.colore 20x25",2650,0 
1080 data7,"st.colore 30x40",8000,0 
1090 dataS,"sv.ek t.135x36",4000,0 
2040 data9,"st.da dia. 10x15",800,0 
2070 data10,"solo sviluPPo",2003,0 
9000 data99,"a”,0,0 
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con J. soft 

per il tu 


Personal Data Base 

Cod. CJSGA01 L. 58.000 
J.Soft - Floppy disk per Apple Ile, 

Apple Ile 

Il progrommo che ho fatto conoscere 
agli utenti Apple itolioni quonto è 
semplice e utile il data base. 

J.soft presenta una nuova versione, 
potenziata e aggiornata, di 
questo famoso programma: 

Il PERSONAL DATA BASE della J.Soft 
è "cresciuto" con Apple: sistema operativo Pro-Dos, visualizzazione 
su 80 colonne, utilizzo dei 128 Kbyte Iper Apple //e e Apple //cl. 
Corredato da una completa documentazione che ne consente 
l'apprendimento e l'utilizzo immediati. 


CFS-Schedario 
Cod. CC0GA01 L. 198.000 
COMINFOR per J.soft - Floppy disk per 
Apple He (80 col.) e Apple Ile (mouse 
opzionale) 

CFS-Schedario mantiene le 
informazioni che riceve e le presenta 
sotto forma di "modulo" il cui 
tracciato è definito in partenza 
per ogni dischetto. Le informazioni 
registrate possono essere sfogliate su 
video liberomente o selezionate per criteri particolari con il tocco di 
un tasto o... con il nuovo MOUSE Apple. 

Potete stampare, modificare, cancellare e copiare le schede a 
vostro piacere, fare calcoli con la calcolatrice sempre a vostra 
disposizione e ricevere aiuto tramite un micromanuale sul video. 

Melopoli 

Cod. CDIMA03 L. 48.000 
Dinosoft per J.soft - Floppy disk per 
Apple ][ Plus, Apple//e, Apple Ile 

L'illustrazione vi avrà certamente fatto 
pensare al più celebre dei giochi di 
compra vendita. 

Non è la stessa cosa! Strategie già 
collaudate, con MELOPOLI non 
funzionano. Il tema del gioco è 
turistico: ogni casella rappresenta un 
albergo di’diverso categoria, dalla bettola al Grand Hotel. 

Le trattative di acquisto, vendita e baratto rendono il gioco 
dinamico e intelligente. Fornito di note esplicative e regole del 
gioco, MELOPOLI vi farà trascorrere piacevoli serate in compagnia 
degli amici e del vostro Apple. 



Vio Rosellini, 12 - 20124 Milono - Tel. 6888228 


Signori della galassia 
cod. CCEMA01 L. 48.000 
Cerruti per J.soft Floppy disk per 
Apple ][ Plus, Apple Ile, Apple Ile. 

Un impero spaziale da conquistare 
direttamente o portata di video. 

Basta con i soliti "games" spaziali! 

Questo avvincente gioco di 
strategia richiede una valutazione 
intelligente delle proprie risorse, 
rispetto a quelle dell’avversario, ed 
una precisa conoscenza della psicologia dei contendenti. 

Le regole, fornite con il package, sono precedute da un’accurata 
descrizione dell'ambiente la cui lettura vi farà entrore perfettamente 
nello spirito del gioco. SIGNORI DELLA GALASSIA: un capitolo 
nuovo nella storia dei giochi spaziali. 

Avventura nel castello 
Cod. CDIMA01 L. 48.000 
Dinosoft per J.Soft - Floppy disk 
Apple ][ Plus, Apple Ile, Apple / 

Il primo programma "adventure" 
progettato e sviluppato in Italia. 

Il gioco consiste nell’esplorare un 
vecchio castello che riserva ai 
giocatori innumerevoli sorprese e 
imprevisti. 

Impegno, astuzia e immaginazione 
sono le doti necessarie per guadagnare i 1000 punti disponibili, 
diventando così... la voi il gusto di scoprirlo). 

AWENTURA NEL CASTELLO è un gioco affascinante che vi assicura 
molte ore di divertimento stimolando fantasia e capacità di 
intuizione. 







Nuove proposte per il tuo personal. Software selezionato italiano ed estero per i personal computer più diffusi sul mercato: giochi, Utilities, 
applicazioni professionali da richiedere direttamente, inviando il coupon, o disponibili presso i più qualificati rivenditori. 
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Stampiamo 
ricevute fiscali 


mettere quanti volete!); nel nostro 
caso avremo vari formati di fotogra¬ 
fie (stampe e ristampe), diapositive 
oppure qualche lavorazione parti¬ 
colare. 

Entrambi i programmi si basano 
sulle istruzioni READ e DATA es¬ 
sendo preferibile, in termini di tem¬ 
po, inserire le lavorazioni o i clienti 
direttamente nel programma che 
usare file e conseguentemente unità 
a disco. Così alla linea 260 vengono 
letti i primi quattro data: essi sono il 
codice della lavorazione A, il tipo di 
lavorazione B$ ed il prezzo con 
I. V.A. Quindi il codice prelevato dai 
data viene paragonato a quello sele¬ 
zionato da tastiera (270): se sono 
diversi il programma passa a leggere 
un altro blocco di data (280) e conti¬ 
nua sino a che i due codici non corri¬ 
spondano. Se questo non accade 
(nel caso avessimo digitato un codi¬ 
ce errato o inesistente) il program¬ 
ma legge tutti i data infinite volte, 
cadendo in un loop senza uscita; per 
evitare ciò alla fine del blocco dei 
data è inserito un “data tappo”. 
Quando viene letto quest’ultimo da¬ 
ta (il codice 99) sullo schermo appa¬ 
re sia la segnalazione di errore che la 
lista dei codici di lavorazione e con¬ 
temporaneamente viene permessa la 
rilettura del blocco dati (290). 

Avendo digitato un codice corret¬ 


to apparirà sullo schermo la lavora¬ 
zione desiderata, la richiesta di inse¬ 
rire la quantità di foto stampate e di 
specificare se la pellicola è stata an¬ 
che sviluppata o no (300-320). In 
seguito viene calcolato e stampato 
su schermo il prezzo. A questo viene 
assegnato un elemento di una matri¬ 
ce T(I) con I elementi, dove I è il 
numero di lavorazioni diverse 
(ognuna delle quali ha il suo prezzo) 
richieste dal cliente. Così se un clien¬ 
te ha dieci stampe con lo sviluppo 
della pellicola ed un ingrandimento 
20x25 avremo T(l), T(2), T(3). 

Se confermiamo i dati immessi (360) 
si passa alla routine di stampa della 
ricevuta (400-650); sulla stessa rice¬ 
vuta è ammessa la stampa di più 
lavorazioni (530-540) e alla fine i 
totali parziali T(I) vengono somma¬ 
ti (590). Notiamo, infine, che nelle 
righe 480-500 e 600 vengono calco¬ 
late le posizioni in cui scrivere i vari 
dati sulla ricevuta. 

A questo punto il computer è 
pronto ad accettare i nuovi dati ed a 
stampare la ricevuta successiva. 


Il secondo programma 

Se avessimo bisogno di emettere 
le ricevute fiscali mensilmente do¬ 


vremmo ricorrere ad un programma 
diverso. Il caso che esamineremo sa¬ 
rà quello di un’impresa di pulizie; 
nel nostro esempio quest’impresa 
curerà la pulizia di dieci stabili (ma 
con lievi modifiche se ne potranno 
gestire centinaia!). Sino alla riga 100 
vengono raccolti i dati comuni a tut¬ 
te le ricevute-fatture (la data, il mese 
da fatturare, l’ultimo numero di fat¬ 
tura emessa), mentre gli altri dati 
(indirizzi degli stabili, amministra¬ 
zioni, importi) si trovano sotto for¬ 
ma di blocco data (6000 e seguenti). 

Alcuni stabili, durante il mese fat¬ 
turato, potrebbero aver avuto biso¬ 
gno di pulizie particolari che com¬ 
portano ore di lavoro extra, di nuo¬ 
ve lampadine, oppure potrebbe es¬ 
sere stato pattuito uno sconto in 
quel periodo. Allora, avendo ogni 
condominio un codice numerico, il 
programma richiede all’operatore i 
codici dei clienti che hanno una o 
più di queste necessità ( 110-120); per 
concludere la serie di richieste digi¬ 
tiamo il codice 0. 

Anche qui si useranno le istruzio¬ 
ni READ e DATA; nel nostro caso i 
data sono così strutturati: A = codi¬ 
ce cliente; Al$ ... A5$ = stringhe 
contenenti l’indirizzo dello stabile, 
l’amministrazione, la lavorazione 
standard; P = prezzo netto. La rou¬ 
tine 200-250 caricherà i dati dei 


Listato 2. Listalo BASIC relativo alle ricevute fiscali mensili. 

20 rem#*##**###*#*#*#### 

21 rem rie.fise.mensi1i 

22 rem#*#*#####*####**## 

48 dimPX<10> 

49 Print"S" ^ Poke59468,14•i=l 

50 Printtab(5)"fF ATTURAZIONE IMPRESA DI PULIZIE" 

51 Print : Print : Print 

60 input "data. GG/MM/AR";d$ 

70 iflen<d$)O89oto60 

80 Print : Print : input"mese da fatturare (in lettere)";m$ 
90 P r i nt : i nP ut " a 1 i 4 uota I VA ". c ■' P r i nt 
100 input"^ULTIMO numero di fattura'Vrm 
105 rem clienti Particolari in Pzi(i) 

110 Print"M" : Print"Codici clienti con Prestazioni extra" 
120 inPutPJi(i) : Print : Print 
130 ifp;'(i)=0 9otol50 
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Seguilo listato 2. 

140 i=i+l'9otol20 

150 P rint : P rint : P rint" Sconferma ?S/'N " : i nP ut ut 
155 Print ; Print : Print"%StamPa in corso»" 

160 ifu$0"s"9oto49 

170 rem raccolta clienti standard 

200 foru=ltol0 

210 reada , a 1 $ > a2$.• a3t , a.4$, a5t , P 
215 fori = 1to10 

219 rem salta i clienti Particolari 

220 i f P V .( i > =athenu=u+1 : i f u= 11 then i = 10 : next i ; u.=u~ 1 : nextu : 9oto300 
223 ifP?i( i )=atheni = 10 : nexti : 9oto210 

225 nexti 

£30 s=l : rem cliente standard 
235 nn=nn+l 
240 9osub3000 
250 next 

300 Print"H" : restore 

305 s=0 : rem Prima Prest.cliente Particolare 
308 rem**************#***^**.********** 

310 Print"Fatt.clienti con Prestazioni extra" 

320 for9=ltol0 : rem max clienti Particolari 
330 bb=P V. ( 9 ) '■ rem cod ice eli ente P art i co l are 
332 nn=nn+1 

335 ifbb=0then9=10 : 9oto540 

339 rem le99e blocco data cliente Particolare 

340 forh=ltobb 

350 reada,a1$,a2$,a3$,a4$,a5t,P 
360 nexth 

370 P r i nta 1 $ '■ P r i nta2t : Pr int ; restore 

375 rem raccolta dati Prestazioni extra 

380 Print"5JTiPo di Prestazione" : Print 

390 Printtab(2)"M lampadina 12 ore straordinarie " : Print 

400 Printtab(4)3 sconto" 

405 Print : Print" l Precedenza allo sconto s" 

410 inPutPr 

440 i f P r=3then i nP ut " V. " ; P e : i nP ut " su l i re < numero) " ; P f : 9oto500 

450 inPut"» uant i t-a ' " ; 4 : P \ ■ i nt 

460 input"8 LIRE (senza iva)'Mi 

478 ifPr= 1 thenb 1 $=str$(4)+" larnPadina/e" 

475 P r i nt : P r i ntb 1 $ : P r i nt : 9oto520 

480 ifPr=2thenbl$="h x "fstr$<4)+"a lire "+str*(li) 

485 P r i nt : P r i ntb 1 1 '■ 9oto520 
500 PP=Pe/100 : P4=PP*Pf 

510 bl$="Detratto lo "+str$<Pe)+"Ji su "+strf(Pf> 

520 9osub3000 

530 ifs=2then9oto380 

535 y8=0 

540 next 

600 end 

2999 _ 
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per l'ufficio: 
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Milano, 19/24 
Settembre 1984. 
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Ente Gestione Mostre Comuflicio 


\V PC MA GAZINE \''0 
LA RIVISTA DEI SISTEMI MS-DOS 

Il primo mensile italiano dedicato agli utenti di Personal Computer IBM e Compatibili. 

Finalmente in edicola, al prezzo di Lire 5.000, la prima rivista italiana sul PC IBM e sullo standard MS-DOS. 



, , IO arrogi» 
'ili* MVOOi 


\ 

PC MAGAZ1NE 

Una nuova pubblicazione firmata... 

GRUPPO \ 
I l EDITORIALE 
J im JACKSON V 

x \. 

ABBONATEVI ADESSO! 

10 numeri della rivista Vi costeranno 40.000 Sre (anziché 50.000). 

Per sottoscrivere l’abbonamento 

basta compilare il modulo pubblicato qui sotto e spedirlo a: 

Gruppo Editoriale Jackson S.r.l. - Via Rosellini, 12 • 20124 Milano, 
allegando assegno o fotocopia della ricevuta di versamento su! 
c/cp n. 11666203 intestato a GRUPPO EDITORIALE JACKSON ■ MILANO 

□ Sì, desidero sottoscrìvere un abbonamento a PC 
Magazine (IO numeri al prezzo di Lire 40.000, anzi¬ 
ché 50.000) 

□ Allego assegno 

□ Ho effettuato versamento su c/cp. n. 11666203 . 

Nome. . . . . . . . . -x- • ■ • V. . 

v Coonomft . . . . . . . Vy. . . . . . . 

^ Azienda TV. . . . . . . . /V . 

Wavc ... .tv ... rSw. . . . tv. .... v, 
cap , .Xarr>l\. • • . V. . . . 

□ Sono in possesso di un PC (o compatibile), 

Modello . V. . . . -V. . . . . TV. . . . . TS* 

□ Non possiedo PC, ma lo utilizzo sul luogo di lavoro 
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Seguito listato 2. 

3000 p1=c/100:ifs=29oto3890 : rem routine di calcolo 
3005 ifPr=3thenP=P-P ,: ! : rem P=Prezzo netto di iva ,P4=sconto 
3010 iv=Pl*P : rem iva 
3020 iw=int<iv) 

3030 ifs=l9oto3200 
3035 ifPr=39oto3200 

3040 Pa= ,; i*li : rem Prezzo netto Prima lavorazione extra 
3050 aw=Pa#Pl : aw=int(aw) : rem iva " " " 

3060 tl=Pa+aw ; rem totale " " " 

3090 ifs=09oto3200 

3100 Pb =c l#l i : bw=Pb#Pl •' bw=int(bw> 

3105 rem Pb=Prezzonetto seconda lav.extra,bw=iva 

3110 t2=Pb+bw : rem tot.seconda lavorazione extra 

3150 ifs=2then9osub4300 

3170 ifyS=lthenreturn 

3200 t=P+iw 

3500 9osub4000 

3510 return 

3999 re 

4000 oPen4,5 : rem routine di stampa 
4010 forj=lto4 

4020 Print#4 

4025 nextJ 

4026 Print#4,tab<25)nn : rem stampa numero fattura 

4027 Print#4,tab(20)d$ : Print#4 : Print#4 : rem data 

4039 Print#4,tab<4)aU : rem dati cliente 
4035 Pr i nt#4, tab\ 4 ) 3.2$ 

4040 Print#4 : Print#4 : Print#4 : la=l 
4050 p rint#4,tab<.4 ?a3$: 1a=1a+1 
4060 ifa.4$=""9oto4090 

4070 Print#4,tab<4)a4$ : la=la+l 

4080 Print#4,tab(4>a5$ : la=la+l 

4090 P rint#4,tab C 4 > m$ : 1a=1a+1 : rem mese 

4095 9osub5000 

4130 w= 8 -w1 : ww=35+w 

4135 Print#4,tab(ww)t : la=la+l : rem stampa tot.Parziale 
4140 ifs=l9oto4500 

4145 i f ’c “^ l Qn , t.ci430R 

4146 ifPr=3thenP rint#4,tab(4)b1$ : 9oto4190 
4150 bu=len(blf) : bl=31-bu : te$=str$(tl) 

4160 te=len<te$> : tf=S-te : tz=bl+tf 

4165 rem stampa tot.Parziale 1 

4170 Print#4,tab(4)bl$J : Print#4,tab<tz)tl : la=la+l 

4190 Print ; inPut"Rltre opzioni S/N";o$ 

4200 ifo$="s"9oto4230 
4205 Print"»" 

4210 9oto4500 

4225 s=2 ; rem seconda Prest.cliente Particolare 
4230 4=0 : 1i=0 : Pe=0 : Pf=0 : P1=0 : P4=0 : Pr=0 

4258 return _ 
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Seguilo listato 2. 

4300 k3$=str$(t2> 

4310 k3=len<k3$) •' y8=l 

4320 bu= 1 en ( b 1 $ > : b l =31 -bu : bk=8-k 3 •• k u=b 1 +bk 
4325 rem tot.Parz.2 

4330 Print#4 : Print#4.tab<4)bl$; : Print-#4. tab<ku)t2 : la=U+l 

4500 11=20—1a 

4510 forsd=ltoll 

4520 Print#4 

4522 nextsd 

4525 t=t+t 1 +t2 : P =P +P 3.+P b : iw=t-P : rem tota. 1 e . tota. 1 e netto d ' i va.. i va 
4527 9osub5000 

4530 d 1 =9—u'2 : d2=9-w3 : d3=19-w1 

4540 Print#4.tab<dl)P.: : Print#4.tab<d2)iwl : Print#4.tab<d3)t 
4550 s=0 : tl=0 : t2=0 : close4 

4560 P=0 : Pa.=0 ; Pb = 0• iw=0 ; q=9: li=0 : Pe=0 : Pf=0 : P 1=0 : P4=0 : t=0 : bl*=" " 

4570 return 

5000 w 1 $=str$ < t ) : w 1=1 en < w 1 % '> 

5010 w2$=str$< P)=w2=1en <w2$> 

5020 w3$=str $ (. i w) ; w3= l en < w3$ > 

5100 return 

6000 rem****# blocco data ***** 

6200 data 1."Cond.di Corso Italia 39 TS'V'c/o fìmm.ne Stabili Sinni” 

6205 data "Pulizia dello stabi le", "nel mese di125900 

6209 rem 

6210 data. 2."Cond.di L.9o Panfili 1 TS"."c/o Rmrn.ne Stabili Sinni" 

6215 data."Pulizia dello stabile"."nel mese di150000 

6219 rem 

6220 data 3."Cond.di V.Corsi 9 TS'V’c/o Rmrn.ne Stabili Sinni" 

6225 data"Pulizia dello stabile ". "nel mese di" ."".180000 

6229 rem 

6230 data 4 . " Cord .di P. Come 1 i a R. TS ". " c/o Rmm. ne Stab ili S i nn i " 

6235 data"Pulizia dello stabile "."nel mese di"."".160000 

6239 rem 

6240 data. 5."Cond.di V.Navali 8 TS"."c/o Rmrn.ne Stabili Birra" 

6245 data."Pulizia dello stabile "."nel mese di". 100000 

6249 rem 

6250 data6."Cord.di V.le XX Settembre 63 TS"."c/o Rmrn.ne Stabili Birra" 
6255 data"Pulizia dello stabile"."nel mese di".150000 

6259 rem 

6260 data7."Cond.di V.Ginnastica 98 TS"."c/o Rmrn.ne Stabili Birra" 

6265 data"Pulizia dello stabile "."nel mese di" ."".90000 

6269 rem 

6271 data.8. "Cond.di V.Ginnastica 16 TS"."c/o Rmrn.ne Stabili Birra" 

6275 data"Pulizia dello stabile"."nel mese di"."".90000 

6279 rem 

6280 data9."Cond.di v.CrisPi 83 ts"."c/o Rmrn.ne stabili Birra" 

6285 data"Pulizia dello stabi le"."nel mese di"."".130000 

6289 rem 

6290 datalG. "Cond.di v. del Bosco 48 ts"."c/o Rmrn.ne stabili Birra" 

6295 data"Pulizia dello stabile"."nel mese di".110000 
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EDP USA ROMA ’84 

9/12 OTTOBRE 1984 ERGIFE HOTEL PALACE 

La quinta edizione di EDP ROMA si ripropone al selezionato pubblico 
dell'Italia Centromeridionale con un esauriente panorama sulle più 
recenti novità nell’ambito dell’EDP, quali: computer, sistemi di word 
processing e trasferimento dati, software e relativi accessori. 

Come ormai di consuetudine, e quale parte integrante della mostra, 
è stato organizzato, in data 11 OTTOBRE, un seminario di studio 
sull'INFORMATICA GRAFICA, argomento questo di estrema attualità. 
Relatori saranno il Prof. Umberto Cugini del Politecnico di Milano, 
il Prof. Piero Mussio del Dipartimento di Fisica dell'Università 
di Milano e il Signor Giuseppe Vanzetti, noto esperto nel campo del 
Computer Graphics. Data la limitata disponibilità di posti, si prega di 
confermare la partecipazione inviando entro il 5 OTTOBRE, un assegno 
di Lit. 100.000, comprensivo degli atti del convegno. 

L'ingresso alla mostra è gratuito per professionisti, managers ed 
operatori del settore. Per gli studenti è previsto un biglietto di 
ingresso di Lit. 3.000. Gruppi e scolaresche sono ammessi alla 
manifestazione previa prenotazione (entro il 5 OTTOBRE). 

Per ogni ulteriore informazione sul seminario e sulla mostra, 
il ns. Centro è a Vs. disposizione. 

(Tel. Segreteria 02/4696451/2/3 - Telex 330208 USIMC I). 
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clienti (saltando quelli che hanno 
usufruito di lavorazioni particolari), 
passando poi alla subroutine di cal¬ 
colo 3000 e di stampa 4000; inoltre 
un codice S=l (230) segnala che i 
dati in elaborazione sono quelli di 
un cliente standard (verranno così 
saltate alcune righe di calcolo e di 
stampa). 

Terminata questa prima fase il pro¬ 
gramma ricerca, uno alla volta, i 
clienti particolari (320-360), li stam¬ 
pa sullo schermo e richiede il tipo di 
lavorazione extra (al massimo 2 tipi 
per cliente) (375-410). Questa ricer¬ 
ca è possibile poiché ad ogni elemen¬ 
to di una matrice P%(I) abbiamo 
associato il numero di codice di un 
cliente particolare (120); leggendo 
tanti blocchi di data quanto è il valo¬ 
re del codice del cliente (340-360) 
avremo che l’ultimo blocco letto sa¬ 
rà proprio quello del cliente partico¬ 
lare desiderato. Ciò si ripeterà per 
tutti i clienti particolari. A questi 
viene associato il codice S=0 (305) 
che permette al programma di cal¬ 
colare correttamente sia il totale che 
IT.V.A. delle lavorazioni extra (nel¬ 
la subroutine 3000), sia di stampare 
questi dati correttamente (nella su¬ 
broutine 40000). 

Per quanto riguarda le dimensio¬ 
ni della fattura queste possono esser 
scelte dall’utente modificando le li¬ 
nee: 4010 cambiando il numero di 
cicli FOR e NEXT, 4026 e seguenti 
cambiando il TAB, 4130, 4150, 
4160, 4310, 4320, 4500,4530. 

Nota: Il POKE della linea 49 selezio¬ 
na i caratteri minuscoli sul PET, 
usando il programma su C 64 è con¬ 
sigliabile cancellare quell’istruzio¬ 
ne. 

Sono stati così presentati dettaglia¬ 
tamente due esempi di programma; 
a questo punto basterà avere una 
minima conoscenza del BASIC per 
modificare questi esempi ed adattar¬ 
li a qualsiasi esigenza. Per quanto 
riguarda la stampa della ricevuta fi¬ 
scale, è opportuno rivolgersi ad una 
tipografia autorizzata per ordinare 
il modulo continuo numerato delle 
dimensioni desiderate. ■ 
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IL LIBRO 



Questa guida, con chiarezza, semplicità espositiva e ricchezza di esemplificazioni, 
risulta un vero e proprio strumento operativo per tutti coloro che vogliono 
avvicinarsi all’informatica in generale, e imparare la programmazione in BASIC, 
in particolare travalicando i tre calcolatori (ZX81, ZX80, 

ZX80 nuova ROM) a cui fa riferimento. Partendo da 
quello che è un computer, il lettore impara nei primi sei 
capitoli a programmare in BASIC, spingendosi, per 
chi lo vuole, oltre, sino alla programmazione in 
linguaggio macchina. 

L’ultimo capitolo riporta parecchi 
programmi e per ciascuno, 
vengono fornite, dove 
possibile, le diverse versioni. 

Tra l’altro si parlerà di file 
e di animazione delle figure. 

Per finire ben otto 
Appendici, essenziali ed 
utilissime, tra cui 
spiccano per interesse 
le due dedicate ai sistemi 
operativi dello ZX80, 

ZX80 nuova ROM 
e ZX81. 
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SOMMARIO 
Introduzione - Il 
calcolatore - Installazione 
del calcolatore - La 
programmazione - 
Il linguagio BASIC - Come 
operare - Utilizzo della memoria - 
Linguaggio macchina - Esempi di 
programmi — caratteri del sistema 
- variabili del sistema - scheda BASIC 
ZX80 - scheda BASIC ZX80 nuova ROM 
e ZX81 - errori segnalati dalla macchina - 
sistema operativo dello ZX80 - sistema operativo 
dello ZX81 e nuova ROM 
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Provando e riprovando 


Nicole Bréaud-Pouliquen 

La pratica dell’APPLE 

Per imparare a usare un 
calcolatore bisogna... usarlo. 

Solo così, ad esempio, è 
possibile scoprire e sfruttare 
le immense risorse operative 
offerte dall'APPLE. Provando, 
riprovando e... leggendo un 
manuale come questo. 

Scritto da un vero esperto, il 
libro si compone di 3 capitoli 
fondamentali: 
e II sistema APPLE II” 
dedicato all'hardware e al 
software 

e "Il BASIC APPLESOFT” 

con le istruzioni, 
i sottoprogrammi, 
gli operatori aritmetici e 
logici 

e “Il disegno e la grafica” 

con le zone di memoria RAM 
e le funzioni grafiche. 

Il tutto arricchito da numerosi, 
esempi ed esercitazioni con 
soluzioni: affinchè la pratica 
abbia l’immediata 
soddisfazione del riscontro. 

130 pagine 
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La grafica 
// sistema Apple 
Il BASIC Applesoft 
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ittà per C 64 


Come programmare 
i caratteri per creare 
una scenografia 

di Sergio Borsoni 

C hiunque voglia fare un 
programma dove la parte 
grafica ha un ruolo non se¬ 
condario, prima o poi si imbatterà 
nei caratteri programmabili. 1 carat¬ 
teri grafici presenti sulla tastiera del 
Commodore 64 sono sufficienti per 
un gran numero di applicazioni, ma 
diventano inadeguati quando si vo¬ 
glia creare una complessa scenogra¬ 
fia. 

Quando frequentavo la Scuola Me¬ 
dia, ricordo, ci facevano usare le co¬ 
siddette cartine mute, cioè carte geo¬ 
grafiche senza nomi, sulle quali bi¬ 
sognava indovinare le città, i monti, 
i fiumi o altri elementi geografici. 
Perché non provare con il compu¬ 
ter? 


Non me ne voglia chi ha della geo¬ 
grafia un altro concetto; il program¬ 
ma che presento in queste pagine, 
infatti, non ha alcuna velleità di tipo 
didattico, è poco più di un gioco ma 
è anche una buona occasione per 
vedere al lavoro i caratteri program¬ 
mabili. 

Dopo che è stata creata l’immagi¬ 
ne dell’Italia a tutto schermo, un 
piccolo cerchio (uno sprite) si sposta 
casualmente lungo la penisola invi¬ 
tandovi ad indovinare le città. In 
memoria sono racchiusi 40 nomi di 
città e le rispettive posizioni (in pi¬ 
xel). 

Se indovinate il nome esatto il com¬ 
puter vi dà la conferma, altrimenti 
suggerisce la risposta corretta; al 
termine di una serie di IO domande, 
riguardanti tutte le città diverse, vie¬ 
ne riportato il numero di risposte 
esatte. 

Per creare l’immagine dell’Italia si 
sono dovuti programmare 51 carat¬ 
teri speciali ridefinendo altrettanti 
caratteri ASCII di quelli non utiliz¬ 
zati per la scrittura. I loro numeri di 


codice vanno dal 65 al 115. Prima di 
passare alla definizione vera e pro¬ 
pria dei caratteri è necessario innan¬ 
zi tutto trasferire dalla ROM alla 
RAM i byte che si riferiscono alla 
forma dei caratteri; quindi occorre 
limitare l’area di memoria utilizza¬ 
bile dal programma BASIC per im¬ 
pedire che esso interferisca con l’in¬ 
sieme dei caratteri e infine bisogna 
istruire il computer perché legga la 
forma dei caratteri non più dalla 
ROM, ma dalla nuova locazione 
della RAM. 

II generatore caratteri nella ROM 
è situato alla locazione 53248 men¬ 
tre il punto più opportuno per far 
iniziare l’insieme caratteri nella 
RAM è alla locazione 12288. 

Nel nostro caso si sono voluti utiliz¬ 
zare i caratteri grafici dal 65 (ASCII) 
al 115: pertanto sono stati trasferiti 
nella RAM i primi 115 caratteri 
comprendendo quindi anche i nor¬ 
mali caratteri alfanumerici che ser¬ 
vono per la scrittura delle domande 
e delle risposte. 

Fino a questo punto non si nota 
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255 

191 

143 

131 

128 

128 

128 

128 


DATA 255,191,143,131,128,128,128,128 


Figura 1. Ogni corali ere o simbolo grafico occupa una 
matrice di 8 x 8 punii (pixel). Una riga di otto pumi 
corrisponde ad un byte di memoria e sono pertanto 
necessari olio byte per memorizzare la forma di un 
cara nere. / sìngoli pumi hanno un valore che dipende 
dalle potenze di due. 


Figura 2. Sommando riga per riga il valore dei punti in 
posizione ON. si ottiene un numero, compreso tra lo De 
255. che esprime la loro configurazione. 0 indica che 
tutti i punti di una riga sono in posizione OFF mentre 
255 significa che lutti i punti sono nello stato ON. 
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Città per C 64. 


alcuna differenza del comportamen¬ 
to del computer in quanto esso sta 
semplicemente estraendo la forma 
dei caratteri dalla RAM anziché dal¬ 
la ROM. Il fatto decisivo consiste 
nella possibilità di modificare ogni 
bit di memoria per poter dare ai ca¬ 
ratteri la forma da noi desiderata. 
Successivamente, l’accostamento 
dei nuovi caratteri sullo schermo da¬ 
rà vita aH’immagine di nostra crea¬ 
zione o, come nel presente program¬ 
ma, alla cartina schematizzata d’Ita¬ 
lia. 

Per poter modificare un carattere 
bisogna sapere come viene determi¬ 
nata la sua forma (pattern) e quali 
valori devono essere inseriti nelle 
opportune locazioni di memoria. 

Ogni carattere è formato da 8 x 8 
punti (pixel), quindi da 8 righe di 8 
pixel ciascuna. Un pixel corrisponde 
ad un bit di memoria mentre una 
sequenza di 8 pixel corrisponde ad 
un byte. Segue che sono necessari 8 
byte per memorizzare la forma di un 
carattere (vedere figura I ). La dispo¬ 
sizione dei punti che formano il ca¬ 


rattere, o il simbolo grafico, va spe¬ 
cificata mediante numeri decimali. 
Come è noto i bit che formano un 
byte hanno come valori le potenze di 
2. Il primo bit a destra vale 2° = 1, il 
successivo 2 1 = 2, poi 2 2 = 4, 2 3 = 8, 
2 4 = 16, 2 5 = 32, 2 6 = 64, e 2 7 = 128. 
Il valore da attribuire al byte è la 
somma dei valori dei singoli bit. 
Facciamo alcuni esempi. Se voglia¬ 
mo che tutti i pixel di una riga siano 
spenti (OFF) il byte corrispondente 
sarà posto a zero; se vogliamo ac¬ 
cendere solo il primoe l'ultimo pixel 
il byte sarà uguale a 128 + 1 = 129. 
Tutti i pixel di una riga in posizione 
ON corrispondono al valore deci¬ 
male 255 (128 +64 +32 + 16 + 8 + 
4 + 2 + 1). 

Nel programma, per ogni carattere 
definito dall’utente si devono scrive¬ 
re 8 numeri nelle istruzioni DATA, 
essi verranno poi letti mediante una 
Read e trasferiti in memoria con 
una POKE (vedere figura 2). Nella 
pratica è opportuno disegnare l’im¬ 
magine che si vuole creare su una 
speciale carta che assomiglia alla co- 



Figura 3. Per realizzare un disegno di una certa complessità è opportuno 
disporre di una mappa del video pixel per pixel, simile alla carta millimetrata. 
Su di essa si potranno annotare i numeri dei caratteri e le posizioni che 
andranno ad occupare sul video tramite istruzioni POKE. 
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mune carta millimetrata con la sola 
differenza di essere suddivisa in zo¬ 
ne di 8 x 8 quadratini. Su di essa 
andranno pazientemente anneriti 
tutti e solo i quadratini che interes¬ 
sano, scrivendo a fianco di ogni 
nuovo carattere il corrispondente 
numero di codice ASCII. 

La figura 3 mostra appunto la re¬ 
alizzazione grafica di una parte del¬ 
l’Italia. Se il disegno è molto grande 
e complesso, quando si tratta di cal¬ 
colare il valore di ogni singolo byte 
la faccenda assume un carattere 
francamente maniacale. 

Nel caso specifico si hanno 5 I carat¬ 
teri per un totale di 408 byte e, se 
tutto finisse qui, si potrebbe stare 
allegri. 

Quando ormai si dispone di un set di 
simboli speciali personalizzati, biso¬ 
gna dire al computer in quale ordine 
collocarli sul video in modo da ri¬ 
produrre il nostro disegno. 

La mappa dello schermo compren¬ 
de 1000 locazioni (40 x 25) numerate 
da 1024 al 2023 nel senso della nor¬ 
male scrittura, da sinistra a destra e 
dall’alto al basso. In pratica dobbia¬ 
mo dire al computer: nella locazione 
1024 poni il carattere 32 (space) op¬ 
pure nella locazione 1035 poni il ca¬ 
rattere 72 (frutto del precedente la¬ 
voro), e cosi per tutte le mille zone 
che formano lo schermo non dimen¬ 
ticando di attivare le corrispondenti 
locazioni per la memoria del colore. 
In realtà si può risparmiare un po’ di 
fatica nel caso si debba stampare 
uno stesso carattere più volte di se¬ 
guito. 

In questo programma è stato ne¬ 
cessario inserire altri 280 numeri cir¬ 
ca nelle istruzioni DATA per poter 
infine ottenere l'immagine dell’Ita¬ 
lia a tutto schermo. 

Il cerchio che indica le città è uno 
sprite. Si è utilizzato uno sprite inve¬ 
ce di un normale carattere per due 
motivi: primo, perché non interferi¬ 
sce con lo sfondo e si sovrappone al 
disegno presente sullo schermo sen¬ 
za modificarlo; secondo, perché la 
sua posizione può essere determina¬ 
ta pixel per pixel e non è condiziona- 
























































































































































































































































































































Città per C 64_ 

Listato 1. // programma Città per Commodore 64. 


5 PRINT"J":P0KE52,48 :P0KE56,48 

6 REM *** DEF IN 1Z IONE CARATTERI *** 

s printtpibc 10 vaaaaaaasHaauN momento, prego." 

10 P0KE56334,PEEKC56334>AND254:POKE1,PEEK< 1)AND251 
20 FORI=0TO313 :POKEI + 12283,PEEKC I+53243>:NEXT 

30 POKE 1 , PEEKC 1 > 0R4 : P0K.E5S334 , F'EEKC 56334 > OR 1 
40 P0KE53272 , < PEEKC 53272 >AND240 ) + 12 
50 F0RCH=65T0115 :FQRBY=8T07 
60 READNU:POKE12238+3*CH+BY,NU 
70 NEXTBY: NEXTCH 

80 PRINTCHR^C 147 ) :FOKE53230,6 
30 REM *** CREAZIONE SF'RITE *** 

100 V=53248:POKEV+21,1:POKE2040,13 
1 10 FORJ=832T08S4:READQ:POKEJ,Q:NEXT 
120 POKEV + 33,0 ! POKEV , 1 15:POKEV+ 1 ,33 
130 REM *** DISEGNO DELL'ITALIA * * * 

140 FOR J =1024TO2023: READC: IFC< >32AN0C< J65THEN200 
150 READR:IFR=1THEN200 

160 FORK =JTO J +R-2 :POKEK,C:POKEK+54272,5 :NEXT 
170 J =J+R- 1 

200 POKEJ,C:POKEJ+54272,5 
210 NEXTJ 

230 REM #** CARICAMENTO MATRICE *## 

300 DIM TTSK 40,3) 

3 10 FORJ=1TO40:READTT*< J, 1 ) :READX,Y 
320 TT$C J,2)=STR$< X > : TT*C J,3)=STR*< Y ) 

330 NEXTJ 
370 REM 

380 REM INIZIO DEL GIOCO 
330 REM 

1000 PRINTTABC 13)"SCR IVI IL NOME" 

1010 PRINTTABC 13 ) "DELLA CITTA’ S" 

1020 N=RNDC-TI):PU=0 
1050 PORRF' = 1 TO 10 
1100 N=INTCRNDC 1 )#40 ) + 1 
1102 IFRP=1THEN1110 

1 105 FORT =1TORP- 1 : IFTT$< N, 1)=G*( T)THEN1 ICC 
1106 NEXTT 

11 10 X=VALC TT$C N,2 ) ) : Y=VALC TTT' N,3) ) 

1120 IFX<256THEN1200 

1 130 POKEV +16,1 :POKEV,X-255 
1140 POKEV +16,0:GOTO 1210 
1200 POKEV,X 
1210 POKEV + 1 , Y 
1260 G$(PP1=TT$(N,1) 

1270 PRINTTABC 18) " * ; : INFUTCT* 

1280 IFCT$=G*<RPJTHENFRINTTABC 13)"2ESATTOH" :PU=PU+1 : GOTO 1400 
1230 PRINTTABC 13)"aSBAGLIATO" 

1300 PRINTTABC 13 ) "E ' ”;G$( RP) 

1400 FORT =1TO3000:NEXT 

1410 ^ORT=1T04:PRINTTABC 13)"□ :NEXT 
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Seguito listato I. 


1420 
1500 
1510 
1520 
1530 
1540 
1550 
1580 
1800 
1610 
2950 
2960 
2970 
2980 
3000 
30 10 
3020 
3030 
3040 
3050 
3060 
3070 
3030 
3030 
3100 
3 110 
3 120 
3 130 
3 140 
3 150 
3 160 
3170 
3 180 
3 190 
3200 

32 10 
3220 
3230 
3240 
3250 
3260 
3270 
3230 
3230 
3300 

33 1 0 
3320 
3330 
3340 
3350 
3360 


NEXTRP 

PRINTTABC 13>"HA I TOTALIZZATO" 
FRINTTABC 13>;PU;"PUNTI" 

PRINTTABC 19 ) “BF ICOMINC IAMO? < Y,'N> " 

GETA$:IFAS=""THEN1530 

IFA$="Y"THEN1600 

IFA$="N"THEN5000 

GOTO 1530 

FORT =1T04:PRINTTABC 13)"□ 

PU =0 : GOTO 1050 
REM 

REM PATTERN CARATTERI PROGRAMMATI 

REM DALL'UTENTE 

REM 

DATA 255,255,255,255,255,255,255,255 

DATA 15,15,11,11,3,3,8,3 

DATA 3,15,63,255,255,255,255,255 

DATA 1,3,7,15,31,63,127,255 

DATA 0,0,0,0,132,240,252,255 

DATA 192,240,252,255,255,255,255,255 

DATA 0,0,0,0,255,255,255,255 

DATA 0,0,0,0,3,15,63,127 

DATA 3,8,4,4,2,2,1,1 

DATA 128,132,224,240,243,252,254,255 

DATA 255,255,13 1,153,143,135,131,123 

DATA 128,64,32,16,8,4,2,1 

DATA 255,13 1,143,131,128,128,128,123 

DATA 132,48,12,3,0,0,0,0 

DATA 123,123,123,123,123,123,123,255 

DATA 0,0,0,0,3,12,48,192 

DATA 255,255,255,255,255,252,240,132 

DATA 255,253,241,133,129,123,123,123 

DATA 131,140,176,132,0,0,0,0 

DATA 255,255,255,255,255,63,15,3 

DATA 0,0,0,0,132,43,12,3 

DATA 255,255,255,255,128,128,128,128 

DATA 123,128,123,255,0,0,0,0 

DATA 255,255,255,255,123,123,123,123 

DATA 129,129,123,255,0,0,0,0 

DATA 127,127,63,63,31,31,15,15 

DATA 135,135,67,67,33,33,16,16 

DATA 16,16,32,32,64,64,123,128 

DATA 241 ,242,244,243,208,203,144,144 

DATA 255,254,252,248,240,240,240,240 

DATA 1,134 ,244,252,255,255,255,255 

DATA 255,255,253,243,24 1 ,225,133,123 

DATA 255,255,255,255,243,233,201,137 

DATA 9,9,9,15,16,32,64,128 

DATA 123,130,132,136,144,160,132,128 

DATA 24 1 ,242,244,248,240,240,240,240 

DATA 240,240,248,254,255,255,255,255 


□":NEXTT 
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Seguilo listato 1. 

3370 

DATA 

334,353,355,355,355,355,355,355 

3330 

DATA 

0,0,138,340,354,355,355,355 

3390 

DATA 

0,0,0,0,0,193,343,355 

3400 

DATA 

34 1,335,193,139,1,3,4,8 

34 10 

DATA 

353,353,354,354,355,355,353,349 

3430 

DATA 

349,353,355,355,355,355,355,355 

3430 

DATA 

16,33,64,138,0,0,0,0 

3440 

DATA 

133,193,334,340,340,16,16,16 

3450 

DATA 

16,16,16,16,340,0,0,0 

3460 

DATA 

0,0,0,0,1,3,7,15 

3470 

DATA 

340,340,340,340,340,340,340,340 

3430 

DATA 

8,3,3,3,3,8,3,340 

3490 

DATA 

16,16,144,144,308,308,340,340 

3500 

DATA 

138,138,193,193,334,334,340,340 

3570 

REM 


3530 

REM 

PATTERN DELLO SPR1TE 

3590 

REM 


3600 

DATA 

0,0,0,7,193,0,34,43,0,33,3,0 

36 10 

DATA 

64,4,0,64,4,0,131,130,0 

3630 

DATA 

135,194,0,135,194,0,135,194,0 

3630 

DATA 

131,130,0,64,4,0,64,4,0 

3640 

DATA 

33,3,0,34,43,0,7,193,0,0,0,0 

3650 

DATA 

0,0,0,0,0,0,0,0,0,0,0,0 

3670 

REM 

• 

3680 

REM 

MAPPA CARATTERI 

3690 

REM 


3700 

DATA 

33,11,73,71,71,33,35 

37 10 

DATA 

66,65,4,74,33,39 

3730 

DATA 

63,69,33,1,70,71,65,8,33,34 

3730 

DATA 

66,65,4,67,65,10,33,34 

3740 

DATA 

73,65,13,81,86,96,33,34 

3750 

DATA 

75,65,11,94,80,37,99,33,34 

3760 

DATA 

76,65,1 1 , 100,33,33 

3770 

DATA 

75,65,10,101,69,33,37 

3730 

DATA 

76,77,65,1,81,33,77,84,65,6,103,103,104,33,35 

3790 

DATA 

73,79,80,83,73,35,75,65,3,74,33,30 

3300 

DATA 

76,75,65,8,74,33,30 

33 10 

DATA 

76,77,34,65,7,70,71,71,67,106,33,36 

3830 

DATA 

78,35,77,84,65,9,107,103,104,33,13 

3330 

DATA 

111,71,67,74,33,4,78,85,77,86,86,65,9,103,103,104,33,15 

3840 

DATA 

66,65,3,115,33,5,73,37,87,75,81,36,65,5,97,34,65,3,70,33,14 

3350 

DATA 

73,65,3,1 14,33,S,76,80,37,77,33,90,65,1 ,96,93,85,77,84,96,33,15 

3860 

DATA 

65,3,113,33,11,78,33,91,65,1,95,69,33,1,73,35,99,33,15 

3370 

DATA 

65,3,113,33,13,73,90,65,3,33,19 

3880 

DATA 

75,65,1,79,113,33,13,68,65,1,94,79,33,19 

3390 

DATA 

76,79,33,15,65,3,93,33,38 

3300 

DATA 

111,71,69,73,71,71,67,106,33,1,77,33,93,33,33 

39 10 

DATA 

66,65,6,105,33,1,78,89,33,39 

3330 

DATA 

73,79,77,84,65,3,108,33,34 

3930 

DATA 

78,85,77,84,65,1,109,33,36 

3940 

DATA 

73,35,79,1 10,33,18 
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Seguii 

o listato 1. 

3970 

REM 


3980 

REM 

CITTA• 

3990 

REM 


4000 

DATA 

AOSTA, 4 1,74,TORINO,49,9 1 

40 10 

DATA 

GENOVA,74,107,MILAND,77,83 

4020 

DATA 

BOLZANO,112,59,TRIESTE,145,33 

4030 

DATA 

VENEZIA, 130,84,BOLOGNA, 104 ,96 

4040 

DATA 

FIRENZE,104,1 12,PERUGIA, 129,123 

4050 

DATA 

ANCONA,160,115,ROMA,135,142 

40G0 

DATA 

NAPOLI , 174,16 1,L 'AQUILA, 16 1,134 

4070 

DATA 

BARI ,238,143,POTENZ A,213,158 

4080 

DATA 

CATANZARO,221,138,PALERMO,149,206 

4090 

DATA 

CAGLIAR 1,32,136,OR I STANO,69,177 

4 100 

DATA 

CATANIA,184,215,REGGIO CALABRIA,204,203 

4 1 10 

DATA 

TARANTO,233,162,SALERNO,190,165 

4 120 

DATA 

CAMPOBASSO,179,144,PESCARA,174,127 

4 130 

DATA 

PISA,92,115,PESARO, 147,110 

4 140 

DATA 

SIENA,118,126,VERONA,110,80 

4 150 

DATA 

UDINE,142,66,TRENTO,112,63 

4 160 

DATA 

PADOVA, 12 1,33,BRESCIA,96,79 

4 170 

DATA 

PARMA,97,95,PAVIA,78,90 

4180 

DATA 

PIACENZA,S4,92,SAVONA,66,110 

4 190 

DATA 

CUNEO,48,93,NOVARA,62,33 

5000 

POKEV+21 , PEEK.< V + 21 )AND254 : PR INT" J" : P0K.E53272,2 1 :FOKE53230,1 4 : END 

8000 

0FEN5,4 

6010 

CMD5 


6020 

LIST 



ta dalle righe e dalle colonne di 
stampa. 

Creare uno sprite ha molto in comu¬ 
ne con la definizione dei caratteri 
speciali e tutto sommato è più sem¬ 
plice. 

Non mi dilungherò a trattare questo 
argomento in quanto il manuale del¬ 
l'utente è abbastanza chiaro e a tale 
proposito voglio solo ricordare che 
uno sprite occupa 63 byte di memo¬ 
ria a partire dalla locazione 832. Per 
crearlo tutto quello che si deve fare è 
attivare il puntatore alle animazioni 
(2040), porre a 1 l’abilitatore anima¬ 
zione di schermo (53269 o 53248 + 
21), attivare il colore dell’animazio¬ 
ne 0 (53287 o 53248 + 39), infine 
indicare la posizione dello sprite in¬ 
serendo l’ascissa (X) in 53248 e l’or¬ 
dinata (Y) in 53249. 

È da tenere presente che per valori di 
X inferiori a 24 o valori di Y inferiori 
a 50 lo sprite cade fuori dall’area 
90 


visibile, inoltre per X maggiore di 
255 bisogna porre a I la locazione 
53264 o 53248 + 16 e ricominciare 
con X — 0. 

Tutto ciò è valido per questo pro¬ 
gramma dove c’è un unico sprite. Se 
esistessero più animazioni contem¬ 
poraneamente è ovvio che le istru¬ 
zioni sarebbero di conseguenza più 
complesse. 

Di fronte all’impegno richiesto dal¬ 
l’aspetto grafico, il resto del pro¬ 
gramma è ben poca cosa. È suffi- j 
ciente infatti che il computer scelga 
casualmente una città tra quelle me¬ 
morizzate, che collochi il cerchio 
nella posizione corrispondente e che 
confronti la risposta data dall'uten¬ 
te con il nome prescelto incremen¬ 
tando una variabile ad ogni risposta 
esatta. 

Per evitare che nella serie di 10 do¬ 
mande si trovi per due volte la stessa 
città si sono memorizzate in una va¬ 


riabile con indice di comodo quelle 
già estratte ed ogni volta si procede 
al confronto con queste per evitare 
ripetizioni. 

Un’ultima raccomandazione: bi¬ 
sogna usare il primo set di caratteri 
(solo maiuscole) ed evitare di ri¬ 
spondere con un nome di città trop¬ 
po lungo perché in questo caso il 
Commodore 64 va a capo riga spez¬ 
zando in due l’immagine dell'Italia 
all’altezza di Bologna. Se questa di¬ 
visione può far piacere a chi rimpro¬ 
vera ancora a Garibaldi la spedizio¬ 
ne dei Mille, si sappia che ciò com¬ 
porta il dover rincominciare da capo 
il programma. 


Descrizione del programma 

5 Pulisce lo schermo e limita l’area 
disponibile per il programma BA- 













Città per C 64 

SIC perché non utilizzi nella RAM 
lo spazio riservato al set di caratteri 
speciali. 

10 Disattiva il timer di interruzione 
della tastiera. 

20 Copia 920 byte dalla ROM, corri¬ 
spondenti ai primi 115 caratteri, per 
trasferirli nella RAM. 

30 Attiva l’I/O e riattiva il timer di 
interruzione della tastiera. 

40 Indica al Commodore 64 la posi¬ 
zione dalla quale leggere i caratteri. 
50-70 Modifica i caratteri dal 65 al 
115 (ASCII) impostando i byte cor¬ 
rispondenti secondo i valori letti 
dalle istruzioni DATA. 

80 Pulisce lo schermo e modifica il 
colore del bordo. 

90-120 Creazione dello sprite. 

100 Attiva l’animazione 0 (la prima) 
e il puntatore dell’animazione. V = 
53248 è l’indirizzo di partenza del 
circuito video. 

110 Inserisce in memoria, a partire 
dalla locazione 832, i valori (63 in 
tutto) che definiscono la forma dello 
sprite. 

120 Indica il colore dello sprite(0 è il 
codice per il nero) e la sua posizione 
iniziale, x = 115 e y = 88. 

130-210 Riproduce l’immagine del¬ 
l'Italia sullo schermo traendo la se¬ 
quenza dei numeri di codice dei ca¬ 
ratteri dalle istruzioni DATA. 

140 L’operazione si ripete per tutte le 
1000 posizioni di stampa dello 
schermo, numerate da 1024 a 2023. 
Se i caratteri sono il 32 o il 65, rispet¬ 
tivamente lo space e il carattere 
“pieno”, il computer legge quante 
volte deve essere ripetuta la loro 
stampa. 

160 Pone il carattere sullo schermo e 
attiva la locazione di memoria che 
ne controlla il colore (5 è il codice 
del verde). 

200 Stampa il carattere nel caso la 
stessa non debba essere ripetuta più 
volte. 

300-330 Caricamento della matrice 
TTS con i nomi delle città e le rispet¬ 
tive posizioni in pixel. 

1020 Inizializza la funzione RND e 
la variabile per il punteggio. 


1050 Inizio del ciclo per le 10 do¬ 
mande. 

1100 Viene scelto casualmente un 
numero compreso tra I e 40. 

1105 Confronto tra la città estratta e 
quelle già uscite in precedenza per 
evitare ripetizioni. 

1110 Coordinate dellosprite. Il pun¬ 
to di riferimento sullo sprite è l’an¬ 
golo in alto a sinistra e non è nel 
centro del cerchio! 

1120-1140 Se la X ha un valore supe¬ 
riore a 255 bisogna attivare la loca¬ 
zione V + 16. 

1200-1210 Collocano lo sprite nella 
posizione corrispondente alla città 
prescelta. 

1260 Memorizza il nome tra quelli 
già prescelti. 

1270 Accetta la risposta dell’utente 
in CTS. 

1280 Dà la risposta affermativa ed 
incrementa il punteggio. 


1290-1300 In caso di errore viene 
data l’esatta risposta. 

1410 Cancella le ultime righe e ri¬ 
porta in posizione il cursore. 
1500-1610 Al termine delle IO do¬ 
mande viene indicato il punteggio 
con la richiesta se si vuole ricomin¬ 
ciare il programmaoterminarnel’e-’ 
secuzione. 

3000-3500 Dati per la definizione 
dei caratteri programmati. 
3600-3650 Dati per la creazione del¬ 
lo sprite. 

3700-3940 Dati che specificano la 
disposizione dei caratteri speciali 
sullo schermo in modo da ottenere 
l’immagine desiderata. 

4000-4190 Città e rispettive posizio¬ 
ni in pixel. 

5000 Disabilita l’animazione, rista¬ 
bilisce il set di caratteri e riporta il 
normale colore del bordo. 
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Gaetano Marano 

77 PROGRAMMI PER SPECTRUM 

77 “dimostrazioni” di quante nuove e 
interessanti applicazioni possa avere il piccolo 
Personal Computer Sinclair. 

In questo volume sono compresi: 30 programmi 
di grafica; 5 di musica; 8 di utility; 6 di 
animazioni; 7 di giochi; 12 di effetti sonori; 

4 di elettronica; 5 di varia. 150 pagine. 

Codice 555 A L. 16.000 

Tim Hartnell 

PROGRAMMAZIONE DELLO 
ZX SPECTRUM 

Più che un libro, un manuale da leggere 
direttamente davanti allo Spectrum. 

Senza inutili affastellamenti, l’autore ha scelto 
con cura tra i diversi, possibili argomenti 
privilegiando i più interessanti della 
programmazione dello Spectrum: dai concetti 
generali (necessari ai principianti) a come 
aggiungere suono e colore ai programmi, al 
gioco, alla grafica, agli affari. 204 pagine. 

Codice 531 D L. 18.000 

Rita Bonelli 

ALLA SCOPERTA DELLO ZX SPECTRUM 

In 35 dettagliatissimi, chiarissimi capitoli tutte le 
grandi possibiiità del più piccolo dei micro. 
Come imparare a programmare in BASIC, 
come usare efficientemente il registratore, come 
sfruttare al meglio le stampe, le possibilità 
grafiche e di animazione. 318 pagine 
Codice 337 B L. 22.000 
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codice 


n copie 


CEDOLA DI COMMISSIONE LIBRARIA 


Prezzo unitario 


Prezzo totale 


David Harwood 
PROGRAMMI E APPLICAZIONI 
PER LO ZX SPECTRUM: 60 GIOCHI 

60 meravigliose video-avventure da vivere 
insieme allo ZX Spectrum: fantasy e fantascienza, 
horror e guerra, brivido e gioco d'azzardo ... 

Ma, oltre a ciò, anche programmi utili ad 
affrontare problemi di tutti i giorni. 116 pagine. 
Codice 558 D L. 9.000 

La Biblioteca che fa testo 


Totale 


□ Pagherò contrassegno al postino II prezzo indicato più L. 2000 per contributo fitto 
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mpariamo il linguaggio 
macchina con il VIC e il C 64 


— Parte quinta — 


Le istruzioni 
di confronto, 
diramazione e salto 


di Alessandro Guida 


Confronto e diramazione 

E uso fatto nella puntata 
precedente delle istruzioni 
di diramazioni BNE e 
BEQ abbinato alle istruzioni di 
LDA, LDX, LDY o INX, INY, 
DEX, DEY non è naturalmente l’u¬ 
nica possibilità che abbiamo di ope¬ 
rare dei test con conseguenti dira¬ 
mazioni (salti condizionati). 

E possibile, infatti, realizzare qual¬ 
cosa di molto simile all’istruzione 
BASIC: 

IF (operazione logica) 

THEN (salto) 

L’istruzione mnemonica parzial¬ 
mente corrispondente è CMP, ab¬ 
breviazione di CoMPare. Questa 
permette di confrontare l’accumula¬ 
tore con un numero o con il conte¬ 
nuto di una locazione di memoria. 
Ad esempio possiamo confrontare 
l’accumulatore con il numero $FF, 
con il seguente comando: 

CMP # FF 

o con il contenuto delia locazione 
S02A5: 

CMP S02A5 


vari sistemi di indirizzamento. Ad 
esempio: 

CMP $0100, Y 

In tabella I sono riportati tutti i tipi 
di indirizzamento consentiti con i 
relativi codici. 

L’operazione di confronto viene 
eseguita dal 6502 sottraendo dall’ac¬ 
cumulatore il numero specificato o 
il contenuto della locazione. 

In seguito a questa operazione ven¬ 
gono naturalmente influenzati i vari 
flag interni. 

La sottrazione viene effettuata 
sommando all’accumulatore il com¬ 
plemento a due del dato da confron¬ 
tare, mentre il flag C (Carry) viene 
azzerato. 

Vediamo, per esempio, il confronto 
tra l’accumulatore (contenente 0A) 


e il numero 07. 

Il complemento a due di 7 
(0000011I)è 11111001. 

Vengono quindi sommati i due valo¬ 
ri: 

00001010 + 

11111001 = 

C= 1 00000011 

Come risultato verrà settato il flag 
C. Nella tabella 2 sono riportati i 
vari casi e l’influenza che hanno sui 
flag C, Z. 

La stessa operazione di confronto è 
possibile per gli altri due registri del¬ 
la CPU. Per il registro X si ha il 
comando CPX, mentre per il regi¬ 
stro Y si ha CPY. 

Questi operano in modo identico al 
CMP effettuando il confronto tra un 


Istruzione: CMP 

- Confronta 

con l'accumu 

CPX 

- Confronta 

col registro 

CPY 

- Confronta 

col registro 

FLAG alterati: 

N V B D I 

Z C 


X 

X X 

Modo indirizzamento 

Implicato 

Accumulatore 

Codi ci 

CMP CPX CPY 

Assoluto 


CD EC CC 

Pagin a - 0 


C 5 E4 C4 

I m m e d i a t o 


C 9 EO CO 

Assoluto,X 


DD 

Assoluto,Y 


D9 

(INO,X) 


CI 

( IIMD) , Y 


DI 

Pagin a - 0,X 

Pagin a- 0,Y 


D5 


Rei a tiv o 
Indiretto 


Si può confrontare anche con una 
locazione in pagina zero, o utilizzare 


Tabella I. Codici istruzioni dì confronto. 
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registro (X o Y) e un dato o una 
locazione di memoria 

Va notato che le istruzioni di con¬ 
fronto non modificano il registro in 
esame, ma soltanto i flag. 



FLAG 


Z C 

Registro > Dato 

0 1 

Registro = Dato 

1 1 

Registro < Dato 

0 0 


Altre istruzioni di salto 
condizionato 

In pratica, quindi, le istruzioni 
CMP, CPX e CPY effettuano un 
confronto tra due numeri e deposi¬ 
tano il risultato nei due flag C e Z. 
In seguito dovremo testare tali flag 
con delle istruzioni di salto condi¬ 
zionato. Per il flag Zsi sono già viste 
le due istruzioni BNE e BEQ. 

Per testare il flag C si hanno le due 
istruzioni: BCC e BCS. 

BCC (Branch on Carry Clear) ese¬ 
gue il salto se il flag di carry è azzera¬ 
to, mentre BCS (Branch on Carry 
Set) lo esegue se C è uguale 1. 

Se per esempio si vuole controlla¬ 
re se il contenuto della locazione 
$FC è maggiore o uguale a 7F scri¬ 
veremo: 

LDA$FC 
CMP # 7F 

BCS...maggiore o uguale 
minore 


Tabella 2. Influenza delle istruzioni di confronto sui flag di Carry e Zero. 


imo «fcrctan 

UHI ♦UUU'J 


Program Counter 

< 


ir 


PCH 


PCL 


4C = d«P 


00 - LB 


C0 - HB 


< $033C 


< $0330 


< S033E 




$C0B0 


Figura I. Salto incondizionato assoluto. Viene caricato nel contatore di 
programma l’indirizzo specificato dopo l’istruzione di JMP. 
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In questo caso il salto verrà effettua¬ 
to se il contenuto di $FC sarà mag¬ 
giore o uguale di 7F. 

In effetti in questo caso specifico le 
due istruzioni di CMP e BCS posso¬ 
no essere sostituite dalla istruzione 
BMI. 

BMI (Brandi on MInus) effettua il 
salto se l’ultimo numero manipolato 
(in questo caso, quello caricato nel¬ 
l’accumulatore) è negativo. Ossia se 
ha il bit 7 alto. 

Analogamente si ha BPL (Branch 
on PLus) che esegue la diramazione 
in caso di numero positivo (quindi 
minore di 80 in esadecimale). Queste 
due istruzioni testano il flag N. 

Le ultime due istruzioni di dirama¬ 
zione sono BVC (Branch on oVer- 
flow Clear) e BVS (Branch on oVer- 
flow Set) che eseguono il salto se il 
flag V di overflow è rispettivamente 
azzerato o settato. 

In tabella 3 vi sono i codici di queste 
istruzioni. 


Salto incondizionato 

Anche in linguaggio macchina co¬ 
me nel BASIC esiste un’istruzione di 
salto che non dipende da alcun fat¬ 
tore esterno, ma viene eseguita non 
appena è incontrata. 

L’equivalente del GOTO è, quindi, 
JMP (JuMP) che viene seguita dal¬ 
l’indirizzo al quale si vuole saltare. 

Per esempio: 

JMPSCOOO 

Quando viene incontrata questa 
istruzione l’indirizzo seguente l’i¬ 
struzione JMP viene caricato nel 
Program Counter. 

Ma il salto in linguaggio macchina 
gode di una possibilità in più rispet¬ 
to al GOTO del BASIC. E permes¬ 
so, infatti, l’indirizzamento indiret¬ 
to. 


Istruzione: IN Y - 

Incrementa 

il registro 

Y 

DEY - 

Decrementa 

il r e q i s t r o 

Y 

INX - 

I ncrementa 

il r e qis t r o 

X 

DEX - 

Decrementa 

il registro 

X 

FLAG alterati: 

N V B D I 

Z C 



X 

X 


Modo indirizzamento 

Codi ce 




INY DEY INX 

DEX 

Relativo 


C 8 88 E8 

CA 

Nota: indirizzamento soltanto 

implicato 



Tabella 4. Codici istruzioni di incremento e decremento. 


JMP (S00FB) 


6C : JMP | 


FB - LB 


00 = HB 


< $033C 

< $033D 

< S033E 


Program Counter 


Il s 

il 

! PCH ( 

PCL || 

lì—-1 

- : i 


00 : LB 


C0 : HB 


< S00FB 


< $00FC 




< $C000 


Figura 2. Salto incondizionato indiretto. Viene caricato nel contatore di 
programma l’indirizzo contenuto nelle locazioni specificate dopo l'istruzione 
JMP. 
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In questo caso il programma non 
salta alla locazione specificata dopo 
il JMP ma all’indirizzo contenuto in 
tale locazione. 

Ciò si indica con: 

JMP (SOOFB) 


In questo esempio il 6502 sposta nel 
Program Counter il contenuto delle 
locazioni SOOFB, S00FC. 

La tabella 4 riepiloga i codici delle 
istruzioni di incremento e decre¬ 
mento dei registri X e Y. 

Nella tabella 5 sono riportati i co¬ 


dici relativi alle istruzioni di salto 
incondizionato. 

Nelle figure 1 e 2 è possibile vedere 
cosa succede quando in un pro¬ 
gramma vengono eseguite le istru¬ 
zioni di salto incondizionato assolu¬ 
to e indiretto. ■ 



Per lavorare’ al meglio con il Pet e l’M20 

Paolo e Carlo Pascolo 

IL BASIC DEL PET E DELL'M 20 


Il personal computer rappresenta oggigiorno, 
oltre che un valido aiuto nel lavoro, anche 
un'irresistibile tentazione. Può capitare, così, che 
qualcuno si trovi a disporre di un Commodore o 
di un M 20 Olivetti senza conoscerne appieno 
il linguaggio e le possibilità. Questo volume 
vuol rappresentare proprio un prezioso 
supporto per chi debba, o voglia imparare a 
programmare in Basic su questi strumenti 
di lavoro, gioco o studio: comandi, 
istruzioni, informazioni, consigli... fino a 
diventare davvero 'padroni' di due dei più 
diffusi Personal Computer. 

226 pagine. Lire 16.000 
Codice 336 D 


Per ordinare il volume 
utilizzare l’apposito tagliando 
inserito in fondo alla rivista 


GRUPPO EDITORIALE 
JACKSON 
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Libri firmati JACKSON 


Baisini - Baglioni 

FORTH 

Come e perché - dopo essersi affermato in 
campo scientifico e industriale - il FORTH è 
sempre più usato anche come linguaggio per 
Personal Computer. Strutturato su due piani, il 
volume si propone come “manuale di 
apprendimento" e come "manuale d’uso” del 
FORTH applicato al VIC 20 e al CBM 64. 

160 pagine. 

Codice 527 B L. 11.000 

Francesconi - Paterlini 

VOI E IL VOSTRO COMMODORE 64 

Un esauriente vademecum sulla 
programmazione in BASIC del Personal che va 
oggi per la maggiore. Facile, brillante, ricco di 
programmi testati questo è un volume prezioso 
anche per il più inesperto degli utilizzatori che, 
oggi, trova finalmente il modo più semplice per 
entrare nel mondo dei computer. 256 pagine. 
Codice 347 B L. 22.000 


Rita Bonelli 

COMMODORE 64 IL BASIC 

Un'accurata esposizione del linguaggio BASIC, 
accompagnata da numerosi esempi. 

Un BASIC visto dall’Interno. Un libro di 
programmi per imparare a programmare. 

Per una maggior praticità e immediatezza d'uso, 
tutti i programmi esemplificativi riportati nel libro 
sono disponibili - a richiesta - su floppy disk. 
316 pagine. 

Codice 348 D L. 26.000 
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2+2=APPLE 
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Due Riviste famose, specializzate, 
informatissime 

BIT - PERSONAL SOFTWARE 

Due volumi preziosi per chi vuole 
approfondire la conoscenza del suo 
computer 


INTERFACCIAMENTO 

DELL’APPLE 

196 pagine 
Cod. 334B 


APPLE II Guida 
all’uso 
390 pagine 
Cod. 331P 


Desidero ricevere un numero omaggio di □ BIT - □ PERSONAL SOFTWARE 
insieme a maggiori informazioni tulle condizioni di abbonamento 
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Lire 26.000 

. n° copie 

codice 

Prezzo unitario 

Prezzo totale 

Una sola firma prestigiosa per chi si interessa 

1 

1 

334 B 

L. 14.000 


di informatica e di elettronica 

1 

331P 

L. 26.000 



contributo fisso spese di spedizione 


Totale 


ORUPPO 

■DfTORIAU 

JACKSON 


Attenzione compilare per intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


Nome 


iCognome 


Cap 


Data 


Firma 


Spazio riservato alle Aziende. SI richiede l'emissione di fattura 
Partila I.V.A. I_L_J_I_I_I_I_I_I_I_I_I 












































Le torri di 


Plutone 


Abbattere le torri 
prima di atterrare 

di Angelo Molla 

S tate compiendo una mis¬ 
sione interplanetaria 
quando, nelle vicinanze di 
Plutone, la vostra astronave viene 
danneggiata da un meteorite e siete 
costretti ad atterrare sul pianeta per 
ripararla. 

L’atterraggio non vi sarà facile, siete 
sopra una città plutoniana e dovete 
abbatterne le torri prima che la vo¬ 
stra astronave le urti disintegrando¬ 
si. Avete a disposizione un laser e 
delle bombe da sganciare, ma atten¬ 


zione, potete utilizzare solo un’arma 
per volta. Se riuscirete ad abbattere 
tutte le torri ed ad atterrare, vi sarà 
presentata una nuova città per un 
nuovo atterraggio e la astronave 
avrà una velocità di discesa maggio¬ 
re. 

Anche per questo gioco, come in 
altri da me presentati sia su Super- 
sinc che su Personal Software, viene 
utilizzata una routine in linguaggio 
macchina per rendere più veloce il 
gioco, resa necessaria daN’ormai no¬ 
ta lentezza del BASIC dello ZX8I. 
Per chi già conosce il linguaggio 
macchina o è interessato allo stesso, 
viene presentato il listato Assembiy 
(listato 4 e 5). 

Il linguaggio macchina contiene una 
piccola sorpresa: è predisposto per 


l’utilizzo con la scheda hardware 
“generatore di caratteri” della B & 
V Interface, e i possessori della sche¬ 
da potranno vedere una astronave 
simile a quelle dei film di fantascien¬ 
za, e le torri dei plutoniani più con¬ 
sone ad un paesaggio sperduto ai 
confini del nostro sistema solare. 

Il listato 5 contiene l’Assembly della 
routine per il generatore di caratteri, 
mentre in figura 3 viene presentato il 
copy dello schermo sia senza che 
con il generatore di caratteri. 

Il programma, come la maggior 
parte di quelli che utilizzano il lin¬ 
guaggio macchina, deve essere co¬ 
struito in due fasi successive. 

La prima riguarda l’inserimento 
della REM iniziale che conterrà il 
linguaggio macchina e l’inserimento 


Listato 1. Listato BASIC da introdurre in due fasi 
come descritto nell’articolo. 


1 REM *?LN ? STEP ? ? 1 CLE 

RR ?9999E£RND* LLIST VJSTN^ND" sii 
SV^NDSURNDO 70 EERNDSfcRND: +A4- 


URL EfcRND76jhRND'’Q'r RETURN 4C)FQ« 
RETURN 3C®FQ-ji RETURN 2C"FO U0RN 
RETURN jfRSN E)INKF~~ 


0 RETURN V>RSN BUNKER* 
LN ®*?LEN *S?'??LN V 
D ( RETURN «4 CLS ATI E| 
N ■4“FFQ 70 70 (F 

~~ m» inke£*; 

•a- 


£*CHR* 
M "INKE 


RETURN 
RETURN SCG: 

_... EfcRND? RETUR 

O 70 (H76fcRND*43u«INKE 
XNKES*TRN RT URL ?g_RE 
R N D 5ISR N D QWEkR N D 6BR N D 
NDCHR4 "C.S; M0RND7-6 


NDO > POKE O 
ND76BRNDTRN R 
T URL ?LEN STEP RTND "INKEIZSS^ND 
GV“7Ql EWRND6*RNDzl EÉRNDQ ) 5 :6» 

d 41 o7?"ink17:*ln 2INKES*5ÈRND'? 

S‘ - -- - - - - 


[NKEL 

JDx DIM SBRODO ?™INK_ 

TjÉLEN LPRINT S“FFF0S70: _ 

RND GOSUB TJiRND GOSUB 7KO GOSUB 

7IRNDEERND" DIM - - — 

LEN ■? ( LET :C ( 


El 

NDRT 
7QKSEJ 

_ _ GQSL “ 

>322 FRST " 

„ _ _ . ETURN $4 CLS LP 

RINT 14 STOP "1_ETRND GOSUB ?\RN 
D GOSUB BE^NDW"! O0F t CLS : COÉ 
t RETURN #4 CLS EERND:+^470 ( El 

S 7*4 PRINT : *TRN «NOT NOT SIN m 
NQT NOT SIN SIN ‘T^SIN NOT NOT S 
IN _ ■ STEP ■ LIST 4 C ■rTT.fcJ CO 
PI COPI: COPH 5 COPI: 1) (B: 

* rtf? FOR O■ FOR C NEXT *4 INPUT 
FOR O ■ ( ) RND2S7PI GOSUB fflP ( ) B3 

GOSUB BPI3 ) LIST 3 GOSUB fflTRN 
100 POKE 16418.0 
110 POKE 16520.0 
120 POKE 16521.0 
130 LET L=1 
140 RfiND USR 17024 

200 PRINT " ***************** ** * 
*************"; TRB 31.: "**": TRB 1 
1.: " ISTRUZIONI".; TRB 31;"**" 

RT 3,31;"** STRI COMP 
IfNDO UNR MISSIONE ** INTERPLRN 
ETRRIP OURNDO NELLE ** UICINRNZE 


DI PLUTONE LR TUR *" 

220 PRINT "* R5TRONRUE E"STRTR 
DRNNEGGIR- ** TR DR UN METEORITE 
** STRETTO RD ATTERRA 
*" 

"* SUPERFICIE DEL PIA 
** TRNDO LE TORRI DEI 
** NI CHE DEUI DISTRU 
* " 

"* USR I TRSTI " .; TRB 3 
PER SGANCIARE LE BOMBE 


E SEI CO- 
RE SULLR 
230 PRINT 
NET fi EUI- 
PLUTONIR- 
GGERE. 

240 PRINT 
li " ** 6 


** 8 - PER SPRRRRE COL LASER 

260 PRINT "* RICORDA CHE PERO* 
POTRÀ USR- ** RE SOLO UN"RRMR PE 
R UOLTfl";Tfl6 31.: "** BUONA FORTUN 
fi" ; TRB 31;"**“ 

260 PRINT RT 19,31;"** PREMI UN 
TRSTO PER INIZIARE **".;TAB 31; 
"******************************* 

*270 IF INKEH*»"" THEN GOTO 270 
280 CLS 


300 PRINT RT 22.0;" SCORE 00000 
RECORD 00000" 

310 GOSUB 500 

330 LET L=USR (16532+(28 RND L = 
0 ) ) 

340 IF L=0 THEN GOTO 310 
350 PRINT RT 19.1; "L'RSTRONRUE 
E® STRTR DISTRUTTA".TRB 1; "PREMI 
UN TRSTO PER ALTRA GARA" 

360 IF INKEi:* = "" THEN GOTO 360 
370 POKE 16644,41 
380 GOTO 310 
400 STOP 

450 SRUE "PLUTONI" 

460 RUN 

500 FOR 1=1 TO 30 

S10 LET U = INT (RND *12) +6 

530 PRINT RT J,I;CHR* 137 

540 FOR U=U + 1 TO 20 

550 PRINT RT J,I;CHR* 136 

560 NEXT J 

570 NEXT I 

580 RETURN 
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Riviste firmate 
JACKSON 


La prima Rivista europea di personal 
computer, software e accessori. 

Con test, novità, analisi del 
mercato... 

11 numeri all'anno. 

L. 4.000 a numero 
Abbonamento: solo L. 35.000 

DCOCrtUtìS 
t OS 

V = l I ~ r - f = 

Aspetti e problemi del software per 
personal computer, programmi, 
giochi e sistemi operativi, 

10 numeri all'anno. 

L. 3.500 a numero 
Abbonamento: solo L. 28.000 


La Rivista professionale per chi si 
occupa di sistemi: dai 
microcomputer ai mini, ai supermini, 
ai mainframe. Con notizie in 
anteprima dall'America. 

11 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 27.000 

UiDCO 

GiOChi 

La guida indiscussa al fantastico 
mondo dei videogames. La più 
eccitante, divertente, istruttiva 
rassegna del settore. 

11 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 25.000 

elettronica 

OGGI 

Da sedici anni il punto di riferimento 
più qualificato per chi voglia 
aggiornarsi su prodotti, applicazioni, 
tecnologie, mercati, in Italia e 
all'estero. 

11 numeri all'anno. 

L. 3.500 a numero 
Abbonamento: solo L. 31.000 


l’Elettronica 

Quindicinale di politica industriale, 
componentistica, informatica e 
telecomunicazioni per uomini di 
marketing, responsabili acquisti, 
manager di settore. 

22 numeri all’anno. 

L. 2.500 a numero 
Abbonamento: solo L. 44.000 

4IHONAIIONI 

Un'aggiornatissima panoramica 
delle nuove tecnologie 
microelettroniche e informatiche 
applicate all’automazione 
industriale. 

11 numeri all’anno. 

L. 3.000 a numero 
Abbonamento: solo L. 26.000 


iefàcfm 


wtcaziM 

Le frontiere aperte dalla telematica, 
le telecomunicazioni professionali in 
tutti i loro sottosettori. 

8 numeri all'anno. 

L. 3.500 a numero 
Abbonamento: solo L. 22.000 

elektor 

Il mensile di elettronica venduto in 
mezzo milione di copie e redatto in 7 
lingue. Con articoli su: applicazioni, 
progettazioni, sperimentazioni, 
invenzioni. 

10 numeri all'anno. 

L. 3.000 a numero 
'Numero doppio' L. 6.000 
Abbonamento: solo L. 29.000 




Il mondo delle 7 note in versione... 
elettronica. Con test strumentali, 
novità e analisi del mercato, 
servizi speciali. 

10 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 24.000 


Quando l'informazione 
fa testo 


In busta chiusa inviate questo coupon a: 

Gruppo Editoriale Jackson - via Rosellini, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero della 

Rivista_ 

(allego L. 1.000 in francobolli per contributo spese di 
spedizione) 

□ Inviatemi GRATIS il Catalogo della Biblioteca JACKSON 
(allego L. 1.000 in francobolli per contributo spese di 
spedizione) 


Nome. 


.Cognome. 


CAP. 


.Città. 



HflRDCOPY DEL L'IDEO NORMALE 


<8i> 



HARDCOPY DEL L'IDEO CON IL 
GENERATORE DI CARATTERI 



Figura 1. Hard copy de! quadro iniziate sia senza che 
con generatore di caratteri. Si noti come una grafica 
appropriata renda più interessante il gioco. 


1 

REM (SEGUITO DA 4.70 CARATTE 

RI) 


iota 

FOR 1=16514. TO 16983 

no 

INPUT A 

120 

PRINT I; ■' = A 

130 

POKE I,A 

14-0 

NEXT I 


Listato 2. Caricatore in linguaggio macchina che deve 
essere usato da chi non impiega il generatore di carat¬ 
teri. 


1 

REM (SEGUITO DA 567 CARATTE 

RI) 


100 

FOR 1=16514 TO 17080 

110 

INPUT A 

120 

PRINT I; " = " ; A 

130 

POKE I.. A 

140 

NEXT I 


Listato 3. Caricatore in linguaggio macchina che deve 
essere impiegato da chi usa il generatore di caratteri 
della B & V Interface. 





































Le torri 
di Plutone 


Dump I. Dump decimare dei codici 
della prima pane in linguaggio mac¬ 
china (listalo 4) che deve essere utiliz¬ 
zata da tutti. 


16514 

2: 

254 

16515 

SS 

73 

16516 

=: 

230 

1651? 

ss 

74 

16518 

= 

249 

16519 

s: 

74 

16520 

= 

194 

16521 

ss 

0 

16522 

=: 

194 

16523 

ss 

0 

16524 

ss 

0 

16525 

— 

23 

16526 

ss 

251 

16527 

= 

73 

16528 

= 

37 

16529 

= 

37 

16530 


37 

16531 

s: 

37 

16532 

2= 

42 

16533 

= 

12 

16534 

ss 

64 

16535 

s 

1 

18536 

SS 

226 

16537 

ss 

2 

16538 

— 

9 

16539 

ss 

34 

16540 

s 

132 

16541 


64 

16542 

32 

1 

16543 


19 

16544 

3= 

0 

16545 

SS 

9 

16546 

SS 

34 

16547 

SS 

134 

16548 

ss 

64 

16549 

a 

33 

16550 


138 

16551 

— 

64 

16552 

ss 

54 

16553 

ss 

0 

16554 

z: 

35 

16555 

ss 

54 

16556 

:z 

0 

16557 

ss 

35 

16556 


54 

16559 

ss 

0 

16560 

= 

42 

16561 

s: 

12 

16562 

ss 

64 

16563 

= 

34 

16564 

ss 

130 

16565 

ss 

64 

16566 

= 

14 

1656? 

— 

21 

16568 

• = 

6 

16569 

ss 

32 

16570 

= 

197 

16571 

s: 

42 

16572 

r: 

130 

16573 

ss 

64 

16574 

ss 

35 

16575 

ss 

34 

16576 

ss 

130 

1657? 

ss 

64 

16578 

ss 

126 

16579 

ss 

254 

16580 

= 

0 

18581 

ss 

194 

16582 

= 

218 


Listato 4. Listato Assemb/y della prima parte del linguaggio macchina che 
deve essere utilizzata da tutti (vedi dump I). 


VARIABILI DEL LINGUAGGIO MACCHINA 

16514 




Byte contenenti il punto dello schermo dove verrà 

16515 




s 

lampaia l'astronave. 


16516 




Byte contenenti il punto dello schermo dove è ubi- 

16517 




calo il punteggio di gara. 


16518 




Bvte contenenti il punto dello schermo dove è ubi- 

16519 




calo il record. 


16520 




Contatore del punteggio della gara. 

16521 









16522 




Coniengon 

o il valore massimo del record raggiunto. 

1652.1 









16524 




Bvte di 

controllo del ciclo sparo: 0 = nessun sparo 





in corso; 6 

= sgancio della bomba; 8 — sparo laser. 

16525 

Contiene la durata dello sganeio bomba o dei laser. 

16526 




Bvte contenenti il punto dello schermo dove verrai!- 

16527 




no stampati o la bomba o il laser. 

16528 









16529 

16530 




Non utilizzati. 


165.11 









INIZIAI.IZZAZIONL VARIABILI 

165.12 

2A 

OC 

40 

42 

12 

64 

LD HL. (16396) 

Viene inserito nelle 

16535 

01 

E2 

02 

01 

226 

2 

ED BC. 738 

locazioni 165 16/165 17 

165.18 

09 



9 



ADD HE. BC 

il punto dello schermo 

165.19 

22 

84 

40 

34 

132 

64 

LD ( 16516). HL 

dove è posto lo SCORI; 

16542 

01 

13 

00 

1 

19 

0 

LD BC. 19 

e nelle locazioni 

16545 

09 



9 



AHH HL. BC 

165 18/165 19 il punto 

16546 

22 

86 

40 

34 

134 

64 

LD (16518). HL 

schermo del RECORD. 

16549 

21 

8 A 

40 

33 

138 

64 

LD HL. 16522 

Vengono azzerati i 

16552 

.16 

00 


54 

0 


LD (HL). 0 

bvte 16522/16523 e 

16554 

2.1 



35 



INC HL 

16524 

16555 

.16 

00 


54 

0 


LD (HL). 0 


16557 

2.1 



35 



INC' HL 


16558 

.16 

00 


54 

0 


LD (HL). 0 







CIC1 

.O PRINCIPALE 


16560 

2A 

oc 

40 

■, 42 

12 

64 

LD HL. (16396) 

L'inizio DE viene po- 

1656.1 

22 

82 

40 

•34 

130 

40 

LD ( 16514). HL 

sto nei byte 165 14/5. 

16566 

0E 

15 


14 

21 


LD C. 21 

32 colonne \ 21 ri- 

16568 

06 

20 


6 

32 


LD B. 32 

ghe di schermo. 

16570 

C5 



197 



PIJSH BC 


16571 

2A 

82 

40 

42 

130 

64 

LD HL. (16514) 

La posizione di stani- 

16574 

23 



35 



INC' HL 

pa dell'astronave vie- 

16575 

22 

82 

40 

34 

130 

64 

LD (16514). HL 

ne aumentala di 1. 

16578 

7F 



126 



LD A. (HL) 

Viene controllato che 

16579 

EE 

00 


254 

0 


CP 0 

la posizione di stampa 

16581 

C2 

DA 

41 

194 

218 

65 

IP NZ 16858 

dell'astronave sia libera, 
altrimenti salta allo 
scontro. 

16584 

7X 



120 



LD A. B 

Stampa sul video la 

16585 

16 

12 


58 

18 


LD (HL). 18 

astronave, controllali- 

16587 

EE 

20 


254 

.12 


CP 32 

do se si imita delle 

16589 

28 

11 


40 

17 


.IR Z. + 17 

prime colonne vi- 

16591 

J 

2B 



43 



DEC HL 

eleo. 

- 


101 



























































Le torri 
di Plutone 


Seguito listato 4. 


16592 

36 

BE 


54 

190 


LD (HL). 190 


16594 

FE 

IF 


254 

31 


CP 31 


16596 

28 

0A 


40 

IO 


JR Z. + IO 


16598 

2B 



43 



DEC HL 


16599 

36 

13 


54 

19 


LD (HL). 19 


16601 

FE 

IE 


254 

30 


CP 30 


16603 

28 

03 


40 

3 


.IR Z. + 3 


16605 

2B 



43 



DEC HL 


16606 

36 

00 


54 

0 


LD (HL). 0 


16608 

3 A 

8C 

40 

58 

140 

64 

LD A. (16524) 

Controlla il bvlc 

16611 

FE 

06 


254 

6 


CP 6 

16524 per vedere se 

16613 

CA 

A6 

41 

202 

166 

65 

JP Z. 16806 

è in corso il laser 

16616 

FE 

08 


254 

8 


CP 8 

o la bomba. 

16618 

28 

5B 


40 

91 


JR Z. + 91 


16620 

CD 

BB 

02 

205 

187 

2 

CALL 699 

Chiama la scansione 

16623 

7C 



124 



LD A. H 

della tastiera. 

16624 

C6 

02 


198 

2 


ADD A. 2 

Controlla se è stato 

16626 

38 

OF 


56 

15 


JR C. + 15 

premuto il tasto 6. 

16628 

44 



68 



LD B. li 

in qual caso riman- 

16629 

4D 



77 



LD C. L 

da alla routine 

16630 

CD 

BD 

07 

205 

198 

7 

CALL 1981 

sgancio bomba, o se 

16633 

7E 



126 



LD A. (HL) 

è stato premuto il 

16634 

FF. 

22 


254 

34 


CP 34 

tasto 8. nel qual 

16636 

CA 

8E 

41 

202 

142 

65 

JP Z 16782 

caso, rimanda alla 

16639 

FE 

24 


254 

36 


CP 36 

routine laser. 

16641 

28 

2C 


40 

44 


JR Z. + 44 


16643 

0E 

29 


14 

41 


LD C. 41 

Ciclo che determina 

16645 

10 

FE 


16 

254 


DJNZ - 1 

la velocità 

16647 

OD 



13 



DEC C 

dell’astronave. 

16648 

20 

FB 


32 

251 


JR NZ. - 4 


16650 

CI 



193 



POP BC 

Preleva dallo stack 

16651 

2A 

82 

40 

42 

130 

64 

LD HL. (16514) 

la riga/colonna corren- 

16654 

78 



120 



LD A. B 

te. 

16655 

FE 

01 


254 

1 


CP 1 


16657 

20 

OA 


32 

IO 


JR NZ. + IO 

Se si tratta dell’ultima 

16659 

2B 



43 



DEC HL 

colonna della riga 

16660 

2B 



43 



DEC HL 

del video, provve- 

16661 

36 

00 


54 

0 


LD (HL). 0 

de a cancellare 

16663 

23 



35 



INC HL 

l'astronave. 

16664 

36 

00 


54 

0 


LD(HL). 0 


16666 

23 



35 



INC HL 


16667 

36 

00 


54 

0 


LD (HL). 0 


16669 

IO 

9B 


16 

155 


DJNZ - 100 

Nuova colonna. 

16671 

23 



35 



INC HL 


16672 

22 

82 

40 

34 

130 

64 

LD (16514). HL 


16675 

OD 



13 



DEC C 

Nuova riga di stampa. 

16676 

20 

92 


32 

146 


JR NZ. - 109 


16678 

3 A 

04 

41 

58 

4 

65 

LD A (16644) 

Se tutto lo schermo 

16681 

D6 

04 


214 

4 


SUB A. 4 

è stato pulito, viene 

16683 

32 

04 

41 

50 

4 

65 

LD (16644). A 

aumentata la 

16686 

C9 



201 



RET 

velocità del gioco 

per il prossimo schermo. 

SPARO LASER 

16687 

CI 



193 



POP BC 

Preleva il numero 

16688 

C5 



197 



PUSH BC 

colonna dallo stack. 

16689 

78 



120 



LD A. B 


16690 

A7 



167 



AND A 

Testà il bit di parità: 

16691 

EA 

03 

41 

234 

3 

65 

JP PE 16643 

se dispari ritorna 
al ciclo principale. 


Seguito dump 1. 

16583 


65 

16584 

= 

120 

16585 

ss 

54 

16586 

SS 

18 

16587 

a 

254 

16588 

ss 

32 

16589 

ss 

40 

16590 

ss 

17 

16591 

ss 

43 

16592 

a 

54 

16593 

a 

190 

16594 

a 

254 

16595 

SS 

31 

16596 

ss 

40 

16597 

ss 

10 

16598 

a 

43 

16599 

a 

54 

16600 

a 

19 

16601 

a 

254 

16602 

a 

30 

16603 

a 

40 

16604 

a 

3 

16605 

a 

43 

16606 

a 

54 

16607 

a 

0 

16608 

a 

58 

16609 

a 

140 

16610 

a 

64 

16611 

a 

254 

16612 

a 

6 

15613 

a 

202 

16614 

a 

166 

16615 

a 

65 

16616 

a 

254 

16617 

a 

8 

16618 

a 

40 

16619 

a 

91 

16620 

a 

205 

16621 

a 

187 

16622 

a 

2 

16623 

a 

124 

16624 

a 

198 

16625 

a 

2 

16626 

a 

56 

15627 

a 

15 

16628 

a 

68 

16629 

a 

77 

16630 

a 

205 

16631 

a 

189 

16632 

a 

7 

16633 

a 

126 

16634 

a 

254 

16635 

a 

34 

16636 

a 

202 

16637 

a 

142 

16638 

a 

65 

16639 

a 

254 

16640 

a 

36 

16641 

a 

4© 

16642 

a 

44 

16643 

a 

14 

16644 

a 

41 

16645 

a 

16 

16646 

a 

254 

16647 

a 

13 

16648 

a 

32 

16649 

a 

251 

16650 

a 

193 

16651 

a 

42 

16652 

a 

130 

16653 

a 

64 

16654 

a 

120 

16655 

a 

254 

16656 

a 

1 


102 











































Seguito dump /. 

16657 = 

32 

16658 = 

10 

16659 = 

43 

16660 = 

43 

16661 = 

54 

16662 = 

0 

16663 = 

35 

16664. = 

54 

16665 = 

0 

16666 = 

35 

18667 = 

54 

16668 = 

0 

16669 = 

16 

16670 = 

155 

16671 = 

35 

16672 = 

34 

16673 = 

130 

16674- = 

64 

16675 = 

13 

16676 = 

32 

16677 = 

146 

16678 = 

58 

16679 = 

4 

16680 = 

65 

16681 = 

214 

16682 = 

4 

16683 = 

50 

16684 = 

4 

16685 a 

65 

16686 = 

201 

16687 = 

193 

16688 = 

197 

16689 = 

120 

16690 = 

167 

16691 = 

234 

16692 = 

3 

16693 = 

65 

16694 = 

120 

16695 = 

50 

16696 = 

141 

16697 = 

64 

16698 = 

33 

16699 = 

140 

16700 = 

64 

16701 = 

54 

16702 = 

© 

16703 = 

42 

16704 = 

130 

16705 = 

64 

16706 = 

34 

16707 = 

142 

16708 = 

64 

16709 = 

24 

16710 = 

5 

16711 = 

42 

16712 = 

142 

16713 = 

64 

16714 = 

54 

16715 = 

0 

16716 = 

56 

16717 = 

141 

16718 = 

64 

16719 = 

214 

16720 = 

2 

16721 = 

40 

16722 = 

27 

16723 = 

56 

16724 = 

25 

16725 = 

50 

16726 = 

14 1 

16727 = 

64 

16728 = 

35 

16729 = 

126 

16730 = 

254 


Seguito listato 4. 


16694 

78 



120 



LD A. B 

! 

16695 

32 

8D 

40 

50 

141 

64 

LD (16625). A 

Viene posto il numero 

16698 

21 

8C 

40 

33 

140 

64 

LD HL. 16524 

colonna nel bvte 

16701 

36 

08 


54 

8 


LD (HL). 8 

16625 e cambiato il 
byte 16624. 

16704 

2A 

82 

40 

42 

130 

64 

LD HL. (16514) 

Nei bvte 16526/7 

16707 

22 

8E 

40 

34 

142 

64 

LD (16526). HL 

viene inserito il 

16710 

18 

05 


24 

5 


JR + 5 

punto di stampa sparo. 

16712 

2A 

8E 

40 

42 

142 

64 

LD HL (16526) 


16715 

36 

00 


54 

0 


LD (HL). 0 

Cancella il laser 

16717 

3 A 

8D 

40 

58 

141 

64 

LD A. (16525) 

precedente. 

16720 

D6 

02 


214 

2 


SUB A. 2 

Se è l'ultima colonna. 

16722 

28 

1B 


40 

27 


JR Z. + 27 

salta alla fine del 

16724 

36 

19 


56 

25 


JR C. + 25 

ciclo. 

16726 

32 

8D 

40 

50 

141 

64 

LD (16525). A 


16729 

23 



35 



INC HL 

Controlla se vi è un 

16730 

FE 

00 


254 

0 


CP 0 

carattere della torre; 

16732 

20 

OD 


32 

13 


JR NZ. + 13 

se c’è salta all'aggior- 

16734 

23 



35 



INC HL 

namento punteggio 

16735 

7E 



126 



LD A. (HL) 

lo stesso vale per la 

16736 

FE 

00 


254 

0 


CP 0 

posizione seguente. 

16738 

20 

07 


32 

7 


JR NZ, + 7 


16740 

36 

16 


54 

22 


LD (HL). 22 

Stampa il laser. 

16742 

22 

8E 

40 

34 

142 

64 

LD (16526). HL 

Carica la nuova posizione 

16745 

18 

98 


24 

152 


JR - 103 

di stampa e ritorna 
al ciclo principale. 

16747 

CD 

75 

41 

205 

117 

65 

CALL 16757 

Chiamata subroutine 
aggiornamento punteggio. 

16750 

21 

8C 

40 

33 

140 

64 

LD HL. 16524 

Riporta a 0 il bvte 

16753 

36 

00 


54 

0 


LD (HL). 0 

16524 e ritorna al 

16755 

18 

F4 


24 

244 


JR - 12 

ciclo principale. 

SUBROUTINE AGGIORNAMENTO PUNTEGGIO 

16757 

36 

00 


54 

0 


LD (HL). 0 

Cancella il pezzo di torre. 

16759 

2 A 

84 

40 

42 

132 

64 

LD HL. ( 16516) 

Posizione SCORE. 

16762 

7E 



126 



LD A. (HL) 

L'ultima cifra è 9? 

16763 

FE 

25 


254 

37 


CP 37 


16765 

20 

05 


32 

5 


JR NZ. + 5 

Se si salta alla de- 

16767 

36 

IC 


54 

28 


LD (HL). 28 

cina successiva. 

16769 

2B 



43 



DEC HL 


16770 

18 

F6 


24 

246 


JR - 8 


16772 

3C 



60 



INC A 


16773 

77 



1 19 



LD (HL). A 


16774 

2A 

8 A 

40 

42 

138 

64 

LD HL. (16522) 

Aumenta di 1 il pun- 

16777 

23 



35 



INC HL 

leggio contenuto 

16778 

22 

84 

40 

34 

138 

64 

LD (16522). HL 

nei byte 16522/3. 

16781 

C9 



201 



RET 


SGANCIO BOMBA 

16782 

CI 



193 



POP BC 

Preleva la colonna 

16783 

C5 



197 



PUSH BC 

dallo stack. 

16784 

78 



120 



LD A. B 

Se si tratta della 

16785 

C6 

E0 


198 

224 


ADD A. 224 

prima colonna torna 

16787 

DA 

03 

41 

218 

3 

65 

JP C. 16643 

al ciclo principale. 

16790 

21 

8C 

40 

33 

140 

64 

LD HL. 16524 

Nel byte 16524 è 

16793 

36 

06 


54 

6 


LD (HL). 6 

presente lo sparo. 

16795 

23 



35 



INC HL 

Nel byte 16525 è presente 

16796 

36 

05 


54 

5 


LD (HL). 5 

la durata del ciclo. 


103 






















































Seguito listato 4. 


16798 

2A 

82 

40 

42 

150 

64 

LD HL. (16514) 

■- 

Nei bvte 16526/7 è 

16801 

22 

8 E 

40 

54 

142 

64 

LD (16526). HL 

presente la posizione 

16804 

18 

05 


24 

5 


JR + 5 

stampa bomba. 

16806 

2A 

8E 

40 

42 

142 

64 

LD HL. (16526) 

Cancella la precedente 

16809 

56 

00 


54 

0 


LD (HL), 0 

bomba. 

16811 

11 

21 

00 

17 

55 

0 

LD DE. 55 

Porta la stampa alla 

16814 

19 



25 



ADD HL, DE 

riga successiva e la 

16815 

22 

8E 

40 

54 

142 

64 

LD (16526), HL 

mette nei byte 16526/7. 

16818 

7E 



126 



LD A. (HL) 

Se la bomba tocca la 

16819 

FE 

05 


254 

5 


CP 5 

superficie di Plutone. 

16821 

28 

IB 


40 

27 


.1R Z, + 27 

ritorna al ciclo principale. 

16825 

FE 

00 


254 

0 


CP 0 

Se incontra un carat- 

16825 

20 

05 


52 

5 


JR NZ. 4- 5 

tere della torre salta 

aM'aggiornamento 

punteggio. 

16827 

56 

IB 


54 

27 


LD (HL), 27 

Stampa la bomba e 

16829 

C5 

05 

41 

195 

5 

65 

JP 16645 

torna al ciclo principale. 

16852 

CD 

75 

41 

205 

117 

65 

CALL 16757 

Chiamata subroutine 

16855 

21 

8D 

40 

55 

141 

64 

LD HL. 16525 

aggiornamento pun- 

16858 

7E 



126 



LD A. (HL) 

leggio, se ha già 

16859 

5D 



61 



DEC A 

abbattuto 5 pezzi di 

16840 

FE 

00 


254 

0 


CP0 

torre, torna al ciclo 

16842 

28 

06 


40 

6 


JR Z, + 6 

principale. 

16844 

77 



1 19 



LD (HL), A 


16845 

2A 

8 E 

40 

42 

142 

64 

LD HL, (16526) 


16848 

18 

E9 


24 

255 


JR - 25 


16850 

21 

8C 

40 

55 

140 

64 

LD HL. 16524 

Ripristina le varia- 

16855 

56 

00 


54 

0 


LD (HL). 0 

bili per il ciclo 

16855 

C5 

05 

41 

195 

5 

65 

JP 16645 

sen/a spari. 


ROUTINE FINALE DOPO LO SCONTRO 


16858 

2A 

82 

40 


42 

150 

64 


LD HL. (16514) 

Puntatore di stampa. 

16861 

CI 




195 




POP BC 

Preleva la colonna 

16862 

78 




120 




LD A. B 

dello stack. 

16865 

A7 




167 




AND A 

Azzera il carrv. 

16864 

C6 

E 5 



198 

227 



ADD A. 227 

Se prime 5 colonne. 

16866 

56 

05 



56 

5 



JR C. 4- 5 

salta a 4- 5. 

16868 

2B 




45 




DEC HL 

Porta la posizione di 

16869 

2B 




45 




DEC HL 

stampa indietro di 

16870 

2B 




45 




DEC HL 

5 colonne. 

16871 

56 

58 



54 

56 



LD (HL). 56 

Stampa a video. 

16875 

25 




55 




INC HL 

SPAK. 

16874 

56 

55 



54 

55 



LD (HL). 55 


16876 

25 




55 




INC HL 


16877 

56 

26 



54 

58 



LD (HL). 58 


16879 

25 




55 




INC HL 


16880 

56 

50 



54 

48 



LD (HL). 48 


16882 

A7 




167 




AND A 

Azzera il carrv. 

16885 

2A 

88 

40 


42 

156 

64 


LD HL. (16520) 

Record in HL. 

16886 

ED 

5B 

8 A 

40 

257 

91 

158 

64 

LD DE. (16522) 

Score in DE. 

16890 

ED 

52 



257 

82 



SBC HL. DE 

Se non c'c il nuovo 

16892 

50 

56 



48 

54 



JR NC. + 54 

record salta a 4- 54. 

16894 

ED 

55 

88 

40 

257 

85 

156 

64 

LD (16520). DE 

Trasferisce lo SCORE 
nel RECORD 

16898 

2A 

OC 

40 


42 

12 

64 


LD HL. (16596) 

Fa lampeggiare la 

16901 

01 

E9 

02 


1 

255 

2 


LD BC. 745 

scritta RECORD 

16904 

09 




9 




ADD HL. BC 

per 15 volte sullo 

16905 

IE 

IE 



30 

_ 

50 

_ 


LD E. 50 

schermo. 

_ 


Seguito dump 1. 


16731 

2 

0 

16733 

2 

32 

16733 

s 

13 

16734 

— 

35 

16735 

2 

136 

16736 

ss 

354 

16737 

ss 

0 

16738 

ss 

32 

16739 

— 

7 

16740 

s 

54 

16741 

ss 

22 

16743 

ss 

34 

16743 

2 

143 

16744 

ss 

64 

16745 

ss 

24 

16746 

ss 

152 

16747 

ss 

305 

16748 

ss 

117 

16749 

ss 

65 

16750 

ss 

33 

16751 

2 

140 

16752 

ss 

64 

16753 

ss 

54 

16754 

ss 

0 

16755 

2 

34 

16756 

2 

344 

16757 

ss 

54 

16758 

ss 

0 

16759 

ss 

42 

16760 

ss 

132 

16761 

ss 

64 

16762 

ss 

126 

16763 

2 

354 

16764 

2 

37 

16765 

ss 

32 

16766 

2 

5 

16767 

ss 

54 

16768 

2 

28 

16769 

ss 

43 

16770 

2 

24 

16771 

ss 

346 

16772 

ss 

60 

16773 

ss 

119 

16774 

s 

42 

16775 

ss 

138 

16776 

2 

64 

16777 

2 

35 

16778 

ss 

34 

16779 

2 

138 

16780 

2 

64 

16781 

2 

201 

16782 

2 

193 

16783 

2 

197 

16784 

2 

120 

16785 

2 

198 

16786 

— 

234 

16787 

2 

318 

16788 

2 

3 

16789 

2 

65 

1679© 

2 

33 

16791 

2 

140 

16793 

2 

64 

16793 

2 

54 

16794 

2 

6 

16795 

2 

35 

16796 

2 

54 

16797 

2 

5 

16798 

2 

43 

16799 

2 

130 

16800 

2 

64 

16801 

2 

34 

16802 

2 

143 

16803 

2 

64 

16804 

= 

24 


104 



















































Ifjjlm- _di Plutone 


Seguito listato 4. 


— 

16907 

— 

E5 




229 




PUSH HL 


16908 

06 

06 



6 

6 



LD B. 6 


16910 

23 




35 




INC HL 


16911 

7E 




126 




LD A. (HL) 


16912 

FE 

7F 



254 

127 



CP 127 


16914 

36 

04 



56 

4 



JR C. + 4 


16916 

DE 

80 



222 

128 



SBC A, 128 


16918 

18 

02 



24 

2 



JR + 2 


16920 

C6 

80 



198 

128 



ADD A. 128 


16922 

77 




119 




LD (HL). A 


16923 

10 

FI 



16 

241 



DJNZ - 14 


16925 

0E 

28 



14 

40 



LD C. 40 

Ciclo ritardo. 

16927 

10 

FE 



16 

254 



DJNZ - 1 


16929 

OD 




13 




DEC C 


16930 

20 

FB 



32 

251 



JR NZ. - 4 


16932 

E1 




225 




POP HL 


16933 

ID 




29 




DEC E 


16934 

20 

E3 



32 

227 



JR NZ - 28 


16936 

01 

05 

00 


1 

5 

0 


LD BC. 5 

Trasferisce a video 

16939 

Al 

84 

40 


42 

132 

64 


LD HL. (16516) 

il punteggio della 

16942 

ED 

5B 

86 

40 

237 

91 

134 

30 

LD DE, (16518) 

della gara nel 

16946 

ED 

B8 



237 

184 



LDDR 

record. 

16948 

2A 

84 

40 


42 

132 

64 


LD HL, (16516) 

Azzera a video lo 

16951 

06 

05 



6 

5 



LD B. 5 

SCORE. 

16953 

36 

IC 



54 

28 



LD (HL). 28 


16955 

2B 




43 




DEC HL 


16956 

10 

FB 



16 

251 



DJNZ - 4 


16958 

0E 

FF 



14 

255 



LD C. 255 

Ciclo di ritardo. 

16960 

10 

FE 



16 

254 



DJNZ - 1 


16962 

OD 




13 




DEC C 


16963 

20 

FB 



32 

251 



JR NZ. - 4 


16965 

2A 

OC 

40 


42 

12 

64 


LD HL. (16396) 

Pulisce le prime 

16968 

0E 

15 



14 

21 



L.D C. 21 

21 righe dello 

16970 

06 

20 



6 

20 



LD B. 20 

schermo. 

16972 

23 




35 




INC HL 


16973 

36 

00 



54 

0 



LD (HL). 0 


16975 

10 

FB 



16 

251 



DJNZ - 4 


16977 

23 




35 




INC HL 


16978 

OD 




13 




DEC C 


16979 

20 

F5 



32 

245 



.IR NZ. - 10 


16981 

0E 

02 



14 

2 



LD C. 2 

Pone C a 2 per dare 
tale valore alla 
variabile BASIC L. 

16983 

C9 




201 




RET 



Seguito dump 1. 



16805 

2 

5 

16806 

2 

42 

16807 

2 

142 

1680© 

2 

64 

16809 

2 

54 

16810 

ss 

0 

16811 

2 

17 

1681S 

2 

33 

16813 

s 

0 

16814- 

ss 

25 

16815 

2 

34 

16816 

2 

142 

16817 

= 

64 

16816 

2 

126 

16819 

2 

254 

16820 

SS 

3 

16821 

2 

40 

16822 

2 

27 

16823 

2 

254 

16824 

2 

0 

16825 

2 

32 

16826 

2 

5 

16827 

2 

54 

16828 

2 

27 

16829 

2 

195 

16830 

2 

3 

16831 

2 

65 

16832 

2 

205 

16833 

2 

117 

16834 

2 

65 

16835 

2 

33 

16836 

2 

141 

16837 

2 

64 

16838 

2 

126 

16839 

2 

61 

16840 

2 

254 

16841 

2 

0 

16842 

2 

40 

16843 

2 

6 

16844 

2 

119 

16845 

2 

42 

16846 

2 

142 

16847 

2 

64 

16848 

2 

24 

16849 

2 

233 

16850 

2 

33 

16851 

2 

140 

16852 

2 

64 

16853 

2 

54 

16854 

2 

0 

16855 

2 

195 

16856 

2 

3 

16857 

2 

65 

16858 

2 

42 

16859 

2 

130 

16860 

2 

64 

16861 

2 

193 

16862 

2 

120 

16863 

2 

167 

16664 

1SS65 

2 

.il? 

16866 

2 

56 

16867 

2 

3 

16868 

2 

43 

16869 

2 

43 

16878 

2 

43 

16871 

2 

54 

16872 

2 

56 

16873 

2 

3S 

16874 

2 

54 

16875 

2 

53 

16876 

2 

35 

16877 

2 

54 

16S7S 

= 

38 


dei codici dello stesso; la seconda 
riguarda invece l’inserimento del re¬ 
sto del programma (vedi listato 1). 
Per quanto riguarda l'inserimento 
del linguaggio macchina, chi non 
possiede il generatore di caratteri 
deve utilizzare il caricatore del lista¬ 
to 2 ed inserire i codici del DUMP I. 
Chi invece possiede il generatore di 
caratteri deve utilizzare il caricatore 
del listato 3 ed inserire sia i codici del 
DUMP 1 che del DUMP 2. Ad inse¬ 
rimento avvenuto, cancellare le li¬ 


nee del caricatore ed inserire il resto 
del programma. 

Descrizione del programma 

1: REM contenente il linguaggio 
macchina. 

100: permette l’utilizzo di tutte le 24 
linee dello schermo; la 23° linea è 
utilizzata per l’indicazione del pun¬ 
teggio della gara (SCORE) e del 
punteggio massimo ottenuto (RE¬ 
CORD). 
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Le torri 
di Plutone 


Listato 5. Listato Assemb/v della seconda parte del linguggio macchina (vedi 
dump 2) che deve essere utilizzata insieme alla prima solo da chi impiega il 
caricatore del listalo J. 


CODICI CARATTERI TORRE 

DA 

131 

Carattere 


16984 

215 

codice 8. 



215 




199 

Corpo della 



131 

lorrc. 



215 




215 




199 




199 

Carattere 



1 

codice 9. 



57 




131 

Sommità 



199 

della torre. 



215 




215 




199 




CODICI CARATTERI ASTRONAVE 


0 

0 

128 

224 

190 

240 

32 

16 


Carattere 
codice 18. 


0 

0 

I 

7 
125 

15 

4 

8 


Carattere 
codice 19. 


A 

17023 


255 

129 

0 

0 

66 

0 

255 

255 


Carattere 
codice 62. 


ROUTINE PER GENERATORE CARATTERI 


17024 

21 

FE 

ID 

33 

255 

29 

LD HL. 7679 


17027 

11 

10 

27 

17 

16 

39 

LD DE. 10000 


17030 

DE 

04 


14 

4 


LD C. 4 


17032 

06 

80 


6 

128 


LD B. 128 


17034 

23 



35 



INC HL 


17035 

7E 



126 



LD A. (HL) 


17036 

EB 



235 



EX DE. HL 


17037 

36 

00 


54 

0 


LD (HL). 0 

Selezione in set 0. 

17039 

EB 



235 



EX DE. HL 

e il carattere della 

17040 

77 



119 



LD (HL). A 

ROM viene trasferito. 

17041 

EB 



235 



EX DE. HL 

Ritorna al set princi- 

17042 

36 

02 


54 

2 


LD (HL). 2 

pale per il prelievo 

17044 

EB 



235 



EX DE. HL 

del prossimo carattere. 


Seguito dump 1. 

16879 


35 

16880 

ss 

54 

16881 

sr 

48 

16883 

2 

167 

16883 

2 

4a 

16884 

2 

136 

16885 

2 

64 

16886 

2 

237 

16887 

2 

91 

16888 

2 

138 

16889 

2 

64 

16890 

2 

237 

16891 

2 

82 

16892 

2 

48 

16893 

2 

54 

16894 

2 

237 

16895 

2 

83 

16896 

2 

136 

16897 

2 

64 

16S9S 

SE 

42 

ÌdqQQ 

2 

12 

16900 

2 

64 

16901 

2 

1 

16902 

2 

233 

16903 

2 

2 

16904 

' 2 

9 

16905 

2 

30 

16906 

2 

30 

16907 

2 

229 

16908 

2 

6 

16909 

= 

6 

1891© 

2 

35 

16911 

2 

126 

16912 

2 

254 

16913 

2 

127 

16914 

2 

56 

16915 

2 

4 

16916 

2 

222 

16917 

2 

128 

16918 

2 

24 

16919 

2 

2 

16920 

2 

198 

16921 

2 

128 

16922 

2 

119 

16923 

= 

16 

16924 

2 

241 

16925 

2 

14 

16926 

2 

40 

16927 

2 

16 

16928 

2 

254 

16929 

2 

13 

16930 

2 

32 

16931 

2 

251 

16932 

2 

225 

16933 

2 

29 

16934 

2 

32 

16935 

2 

227 

16936 

2 

1 

16937 

2 

5 

16938 

2 

0 

16939 

2 

42 

16940 

2 

132 

16941 

2 

64 

16942 

2 

237 

16943 

2 

91 

16944 

2 

134 

16945 

2 

64 

16946 

2 

237 

16947 

2 

184 

16948 

2 

42 

16949 

2 

132 

16950 

2 

64 

16951 

2 

6 

16952 

2 

5 

16953 

2 

54 

16954 

2 

28 

16955 

2 

43 

16956 

2 

16 

16957 

2 

251 

16958 

2 

14 

16959 

2 

255 

17058 

2 

3© 

17059 

2 

33 

1706© 

2 

88 

17061 

- 

66 


106 


































Le torri 
di Plutone 


Seguito dump 1. 


17062 


237 

17063 

= 

176 

17064 

SS 

1 

17065 

a 

16 

17066 

ss 

0 

17 067 

a 

17 

17068 

a 

144 

17069 

a 

30 

1707© 

a 

237 

17071 

ss 

176 

17072 

ss 

1 

17073 

ss 

8 

17074 

ss 

0 

17075 

ss 

17 

17076 

ss 

240 

17077 

ss 

31 

1707© 

— 

237 

17079 

ss 

176 

17080 

a 

201 



Seguito listato 5. 


17045 

17047 

17048 

10 

OD 

20 

FB 

EE 


16 

13 

32 

243 

238 

DJNZ - 12 

DEC C 

JR NZ. - 17 


17050 

EB 



235 


EX DE. HL 

Seleziona il set 0. 

17051 

36 

00 


54 

0 

LD(HL). 0 


17053 

01 

10 

00 

1 

16 

0 LD BC. 16 

Cambio dei caratteri 

17056 

11 

40 

1E 

17 

64 

30 LD DE, 7744 

codici 8 e 9. 

17059 

21 

4F 

42 

33 

79 

66 LD HL, 16975 


17062 

ED 

B0 


237 

176 

LDIR 


17064 

01 

10 

00 

1 

16 

0 LD BC. 16 

Cambio dei caratteri 

17067 

11 

90 

1E 

17 

144 

30 LD DE, 7824 

codici 18 e 19. 

17070 

ED 

B0 


237 

176 

LDIR 


17072 

01 

08 

00 

1 

8 

0 LD BC, 8 

Cambio del carattere 

17075 

11 

F0 

1F 

17 

240 

31 LD DE. 8176 

codice 62. 

17078 

ED 

B0 


237 

176 

LDIR 


17080 

C9 



201 


RET 



16960 

gg 

16 

17009 

_ 

0 

16961 

SS 

254 

17010 

ss 

1 

1S962 

SS 

13 

17011 

ss 

7 

16963 

ss 

32 

17012 

— 

125 

16964 

ss 

251 

17013 

ss 

15 

16965 

2S 

42 

17014 

ss 

4 

1696© 

S 

12 

17015 


8 

16967 

SS 

64 

17016 

ss 

255 

16968 

ss 

14 

17017 

ss 

129 

16969 

ss 

21 

17018 

ss 

0 

16970 

a 

6 

17019 

ss 

0 

16971 

a 

32 

17020 

ss 

66 

16972 

ss 

35 

17021 

ss 

0 

16973 

a 

54 

17022 

ss 

255 

16974 

ss 

0 

17023 

— 

255 

16975 

ss 

16 

17024 

= 

33 

16976 

ss 

251 

17025 

ss 

255 

16977 

ss 

35 

17026 

= 

29 

16978 

ss 

13 

17027 


17 

16979 

ss 

32 

1702© 

— 

16 

16980 

ss 

245 

17029 

— 

39 

16981 

a 

14 

17030 

— 

14 

16982 

ss 

2 

17031 


4 

16983 

ss 

201 

17032 

ss 

6 

16984 

= 

131 

17033 

= 

128 

16985 

ss 

215 

17034 

SS 

35 

16986 

ss 

215 

17035 

se 

126 

16987 

ss 

199 

17036 

XX 

235 

16988 

a 

131 

17037 

ss 

54 

16989 

ss 

215 


ss 

0 

16990 

ss 

215 

17039 

a 

235 

16991 

ss 

199 

17040 

ss 

119 

16992 


199 

17041 

a 

235 

16993 

— 

1 

17042 

a 

54 

16994 

ss 

57 

17043 

ss 

2 

16995 

a 

131 

17044 

ss 

235 

16996 

ss 

199 

17045 

a 

16 

16997 

ss 

215 

17046 

ss 

243 

16998 

ss 

215 

17047 

ss 

13 

16999 

ss 

199 

17048 

a 

32 

17000 

— 

0 

17049 

a 

238 

17001 

ss 

0 

17050 

a 

235 

17002 

a 

128 

17051 

a 

54 

17003 

a 

224 

17052 

a 

0 

17004 

ss 

190 

17053 

a 

1 

17005 

= 

240 

17054 

a 

16 

17006 

ss 

32 

17055 

ss 

0 

17007 

ss 

16 

17056 

ss 

17 

17008 

= 

0 

17057 

= 

64 


110 - 120 : azzerano i byte contenenti 
il punteggio massimo (RECORD). 
130: inizializza la variabile “L” uti¬ 
lizzata per determinare l’indirizzo di 
chiamata della routine in linguaggio 
macchina (vedasi linea 330). 

140: lancia la routine per il generato¬ 
re di caratteri: il set dei caratteri con¬ 
tenuto nella ROM viene trasferito 
nel set “0” del generatore e vengono 
modificati i caratteri codice 8 - 9 - 18 
- 19 e 62. Chi non possiede il genera¬ 
tore deve omeitere questa linea. 
200-270: spiegazioni del gioco. 

280: pulisce lo schermo. 

290-310: viene visualizzato sullo 
schermo il passaggio di Plutone con 
il punteggio ed il RECORD iniziale 
a “zero”. 

330: chiama la routine il linguaggio 
macchina a partire dalla locazione 
16532 se trattasi di nuova gara o 
dalla locazione 16560 se l’atterrag¬ 
gio precedente è riuscito. Il valore 
della variabile L (valore che si deter¬ 
mina al ritorno al BASIC della rou¬ 
tine) stabilisce - tramite l’operatore 
relazionale AND - da quale locazio¬ 
ne deve partire la routine. 

340: si veda quanto indicato nella 
linea precedente. 

350-360: fine partita richiesta nuovo 
gioco. 

370: riporta al valore originario il 
ciclo di ritardo velocità dell’astrona¬ 


Dump 2. Dump decimate dei codici della seconda parte in linguaggio macchi¬ 
na (listato 5) che deve essere usata oltre alla prima da chi usa il caricatore del 
listato 3. 


ve. 

500-580: visualizza in modo casuale 
le torri. H 
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SEGRETI DEI PERSONAL 


COMMODORE VIC 20 C 64 


Procedura autostart 


di Alessandro Guida 

Ultimamente si è fatto un gran parlare delle possi¬ 
bilità di autostart dei piccoli Commodore. Purtrop¬ 
po, è nata anche molta confusione in materia poiché, 
probabilmente, chi lo ha fatto non aveva le idee 
molto chiare. 

Vediamo ora di analizzare in maniera semplice cosa 
si intende per procedura autostart e come è possibile 
implementarla. Analizzeremo, inoltre, le possibilità 
di proteggere seriamente il software dai maniaci della 
copia. 


Autostart 

Per autostart si intende un programma che all’ac¬ 
censione del computer viene automaticamente cari¬ 
cato in memoria ed eseguito senza alcun intervento 
dell’operatore. 

Questa esigenza è nata con la necessità di poter dare il 
computer, con i relativi programmi applicativi, in 
mano a persone senza alcuna conoscenza in materia. 
Per costoro, benché possa sembrarvi strano, è un’o¬ 
perazione abbastanza complessa e fonte di innumere¬ 
voli errori il dover digitare le due linee: 

LOAD “PROGRAMMA”, 8 
RUN 

e quindi premere due volte il tasto di return. 

A ciò si aggiunge il fatto che è speranza di ogni buon 
programmatore, cercare di rendere il più confortevo¬ 
le possibile l’uso dei suoi programmi. 

Un tipico esempio di procedura autostart sono le 
cartucce contenenti del software che vanno inserite 


RISERVATO AGLI UTILIZZATORI 
DELL’EASY SCRIPT SU C 64 

Se vi siete annoiati di passare ore e ore seduti a 
battere lettere e testi vari, abbiamo una sorpresa per 
voi. 

Quando siete, normalmente, sul foglio di lavoro preme¬ 
te il tasto FI per entrare in modo comandi (la scritta 
MODE inizierà a lampeggiare). 

Ora premete contemporaneamente i tasti: CTRL + 3 
e. buon ascolto!!!!! 


nello slot di espansione sia del VIC che del 64. 
Queste cartucce, nella maggior parte dei casi, vengo¬ 
no attivate automaticamente all’accensione del com¬ 
puter. 

I problemi nascono, invece, quando il programma 
risiede su disco o su nastro. 

I computer più evoluti sono in grado di eseguire un 
autostart. Ad esempio, sotto sistema operativo MS- 
DOS viene caricato automaticamente un file dal no¬ 
me AUTOEXEC.BAT ed eseguiti i comandi in esso 
contenuti. 


$02A7 - $02FF 

non utilizzati 

$0300 - $0301 

vettore messaggi errore 

$0302 - $0303 

vettore BASIC warm start 


Figura 1. Locazioni di memoria interessate all’artico¬ 
lo. Il vettore $ 0302 , $0303 è ciuello richiamato dall’in¬ 
terprete BASIC a! termine dell'operazione di LOAD. 


Il VIC ed il 64 non hanno una simile possibilità, ma 
ad esempio nel programma CALC RESULT AD¬ 
VANCED (per il 64), grazie all’uso di una cartuccia, 
è stato ottenuto lo stesso risultato. Infatti, all’accen¬ 
sione, il computer richiede l’inserzione del disco che 
viene letto senza il bisogno di alcun comando da 
parte dell’utente. 

In mancanza di un supporto hardware, come una 
cartuccia esterna, dovremo accontentarci di operare 
a livello software ma con alcune limitazioni. 

Una prima possibilità, che certamente già conoscete, 
è data dall’uso dei tasti SHIFT + RUN/STOP. In 
questo modo si comanda al computer di caricare il 
primo programma da nastro e di eseguirlo subito. 
Si tratta però di una soluzione particolare limitata 
all’uso del nastro. 

Quello che faremo noi, invece, sarà di ottenere auto¬ 
maticamente il RUN comunque sia dato il comando 
di LOAD. 


Uno sguardo al sistema operativo 

In figura I è riportato il contenuto di una zona 
particolare di memoria del VIC 20 e del 64 (sono 
uguali per i due computer) da S02A7 a $0303. 
Come si può notare le locazioni da S02A7 a S02FF 
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Procedura 
. autostart 


compreso, sono libere e permettono di memorizzare 
una corta routine in linguaggio macchina. Inoltre le 
locazioni $0302, $0303 contengono il vettore di 
“warm start”. 

Per chi non lo sapesse, tutte le volte che il computer 
presenta il READY e quindi il cursore lampeggiante 
in attesa di comandi dalla tastiera, ha eseguito un 
salto alla routine di warm start. 

Quindi questa routine viene chiamata tutte le volte 
che il computer ha terminato di svolgere una opera¬ 
zione. Ad esempio, quando viene incontrata una 
istruzione di END in un programma o, e questo ci 
interessa, dopo avere completato una operazione di 
LOAD. 

Poiché l’indirizzo di inizio è conservato nel vettore 
visto prima, è sufficiente modificarlo in modo da 
puntare ad una nostra routine scritta a partire da 
$02A7. Così si potrebbe caricare in memoria, con¬ 
temporaneamente, la routine e il vettore modificato 
ed ottenere che alla fine del LOAD venga automati¬ 
camente eseguita detta nuova routine. 

Se, per esempio, questa carica in memoria il pro¬ 
gramma principale e poi introduce il comando RUN 
+ 1 RETURN nel bufferdella tastiera ecco realizzato 
un mini-autostart. 

In questa maniera funziona il programma in As- 
sembly del listato 1. Dopo avere scritto la routine di 
autostart e modificato il vettore $0302, $0303, in 
maniera da puntare a questa routine, basta salvare la 


zona di memoria da $02A7 a $0303 su nastro o disco. 
Se, invece, del RUN automatico si vuole un SYS ad 
una locazione del programma seguente, si può sosti¬ 
tuire il JMP($0302)con un JMPalla locazione volu¬ 
ta. 

Naturalmente, perché si abbia l’effetto voluto sarà 
necessario caricarla da disco o nastro senza rilocarla, 
quindi con: 

LOAD “BOOT”, 8, I o LOAD “BOOT”, 1, I 
Così viene modificato anche il vettore di warm start, 
che al termine del LOAD forza l’esecuzione della 
nuova routine. 


LOAD non rilocato 

Il problema che ora si pone è che, se anche abbia¬ 
mo eliminato la necessità del RUN vi abbiamo ag¬ 
giunta quella del comando secondario “, 1” peravere 
il LOAD non rilocato. 

Ricordiamo, infatti, che se non si usa tale comando 
un qualsiasi programma viene caricato all’inizio del¬ 
la FLAM destinata al BASIC. 

Per il disco non è possibile ovviare a tale inconvenien¬ 
te. 

Nel listato I sono stati inseriti, a partire dalla locazio¬ 
ne $02A7, i codici della linea BASIC: 

10 LOAD “B 8, 1 







HEADER DI FILE SU NASTRO 


! 03 

A7! 02 

04! 03 

42! 4F! 4F! 54! 20! 20! 20! 20! 

! 20! 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

0 ‘ 

0 

0 

0 

0 

0 

0 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

F 

C 

D 

E 

F 

0 

1 

F 


Figura 2. Composizione dell’header di un file programma su cassetta e locazioni del buffer ne! quale è conservato, 
prima della registrazione e dopo il LOAD. 

Il primo codice (in $03 JC) indica il tipo di file: /-programma: 2-sequenzia/e; 3-programma non rilocabile. Il secondo e 
terzo codice sono l’indirizzo di partenza nell'ordine LSB, MSB. Il quarto e quinto codice sono l’indirizzo dell’ultima 
locazione che era stata registrata. Da! sesto in poi ($0341) sono conservati i caratteri ASCII de! nome de! file. 
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ROUTINE DI AUTOSTART 

0 2A7 

0F 

08 

00 

0A 93 


Codici linea Basic: 

02AC 

22 

42 

2 A 

22 2C 


10 LOAD "B*",8,1 

0 2 B1 

38 

2 C 

31 

00 00 

00 


0287 

* A 9 

08 


LDA 

08 

LDA 01 per nastro 

02B9 

AA 



TAX 


Numero File e periferica 

02BA 

A0 

01 


LDY 

01 

Comando secondario 

02BC 

2 0 

BA 

FF 

JSk 

$FFBA 

Assegna parametri file 

02 BF 

A9 

02 


L DA 

02 

Lunqhezza nome file da 







caricare. 

02C 1 

A2 

F3 


LDX 

F3 

Indirizzo dove risiede 

02C3 

A0 

0 2 


LDY 

0 2 

il nome. 

02C5 

20 

BD 

FF 

JSR 

SFFBD 

Assegna nome file 

02C8 

A9 

00 


LDA 

00 

Disabilita m e s s a q gi e 

02CA 

85 

90 


STA 

$90 

predispone LÒAD. 

0 2 C C 

20 

05 

FF 

JSR 

$ F F 0 5 

Routine di L0A0 

02CF 

86 

20 


STX 

$20 

Memorizza 1 'indirizzo 

0 2 D1 

84 

2 E 


STY 

$2E 

della fine del 







programma Basic 

0203 

A9 

83 


LDA 

83 

Rimette il vettore di 

0 2D5 

80 

02 

03 

STA 

$0302 

Warm start originale 

02D8 

* A9 

A4 


LDA 

A4 

LDA C4 per il VIC 20 

02DA 

80 

03 

0 3 

STA 

$0303 


02DD 

A2 

06 


LDX 

06 

Copia i comandi: 

02DF 

86 

C6 


STX 

$C6 

CLEAR + RETURN 

0 2 E1 

BD 

EC 

02 

LDA 

$02EC,X 

RUN + RETURN 

0 2 E 4 

90 

76 

02 

STA 

$0276,X 

nel buffer di tast. 

0 2 E 7 

CA 



DEX 



0 2 E 8 

00 

F7 


BNE 

$ 0 2 E1 


02EA 

6C 

02 

03 

JMP 

($0302) 

Torna al Basic con un 







salto al Warm start 

02ED 

43 

CO 

00 



C+(shift)L+RETURN 

02 F0 

52 

0 5 

00 



R +(s hift)U+RETURN 

02F3 

20 

20 

20 

20 20 

20 20 

Spazio per il nome del 







programma da leggere 







in codice ASCII. 

0300 

8B 

E3 




Vettore Routine errore 

0302 

B7 

02 




Vettore Routine Warm 







Start 


Listato 1. Programma in Assembly per realizzare /’autostart sul VIC 20 e sul C 64. Questa routine va salvata su nastro 
o su disco da $02A 7 a $0304. 

Per il nastro utilizzare la routine del listato 2, mentre il disco va utilizzato il nome BOOT. 

Le linee contrassegnate da un asterisco variano dal VIC al 64 o dal disco al nastro. 


Così che se la routine viene caricata normalmente, al 
RUN si autocarica nella giusta zona di memoria. 
Per il registratore le cose vanno meglio poiché è 
possibile fare in modo che un file di programma 
venga caricato da nastro sempre senza rilocarlo. An¬ 
che se non si aggiunge il 1 ” al comando di LOAD. 
In ogni file su nastro viene preposta una serie di 
informazioni dette HEADER. In figura 2sono ripor¬ 
tate queste informazioni e il loro significato. 


Il primo dato è quello più interessante e può assume¬ 
re i valori 1, 2 o 3: 

1 indica che il file seguente è un programma; 

2 indica un file sequenziale; 

3 indica un file programma non rilocabile. 
NeM’ultimo caso viene assunta come locazione di 
partenza per caricare il programma quella indicata 
dall’header (il secondo e terzo dato). 

Se quindi la routine del listato I viene memorizzata 
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Procedura 
_ autostart 


1500 

A9 

01 


EDA 

01 

1502 

AA 



TAX 


1503 

A0 

03 


LDY 

03 

1505 

20 

BA 

FF 

JSR 

$ F F BA 

1508 

A9 

00 


L DA 

00 

1 50A 

20 

BD 

FF 

JSR 

$ F F B D 

1 5 0 D 

A9 

A7 


L DA 

A 7 

1 50 F 

85 

FB 


STA 

$ FB 

1511 

A9. 

02 


LDA 

02 

1513 

85 

F C 


STA 

SFC 

1515 

A9 

Ftì 


LDA 

FB 

1517 

A 2 

04 


LDX 

04 

1519 

A0 

03 


LDY 

03 

151 B 

20 

D8 

FF 

JSR 

$ F FD8 

1 51E 

00 



BRK 



ROUTINE PER REGISTARE SU 
NASTRO CON CODICE DI 
APERTURA TRE. 

Numero file 



e 

pe 

r i f 

er i c 

a 



Coma 

ndo 

se 

cond 

ar 

1 0 

per 


0 

t te 

ner 

e i 1 

c 

od 

1 ce 3 

A s : 

;e 

g na 

pa 

rame 

t r 

i 

file. 

Noi 


a s s 

eg n 

a a 1 

cu 

n 

nome 


a 

1 f 

i 1 e 

da 

re 

gì 

strare 

L 1 ' 

i n 

d i r 

i zz 

o d i 

i 

n i 

z i 0 


d 

el 1 

a z 

ona 

d i 

RAM da 


s 

a 1 v 

are 

v i e 

ne 

m 

esso 


1 

n p 

agi 

na z 

er 

0 . 


Cai 

r i 

c a 

1 1 i 

ndi r 

i z 

zo 

i n 


pagina zero. 
Indirizzo della fine 
della RAM da reg. 
Routine di SAVE 
Torna al monitor. 


Listato 2. Programma per salvare la routine di autostart del listato l su nastro con codice di apertura uguale a 3. 
Per le varie routine delKERNAL utilizzate nei due programmi si consiglia la lettura del Programmer’s Reference Guide 
del V1C 20 o de! 64. 

La routine si usa dando il comando G 1500 mentre si è in monitor di linguaggio macchina. 


utilizzando come primo codice il 3 si ottiene di avere 
l’autostart anche con il solo comando LOAD. 

Alcuni monitor di linguaggio macchina (peresem- 
pio il 64MON) adottano sempre questo codice nelle 
registrazioni su cassetta. Chi avesse altri tipi di moni¬ 
tor, può utilizzare il listato Assembly 2. 

Questo va introdotto in una zona di RAM libera 
(finché si resta nel linguaggio macchila va bene an¬ 
che la RAM dedicata al BASIC). Per il 64 è comodo 
utilizzare la RAM a partire da $C000. 

Per dare il via alla registrazione occorre il comando: 
G nnnn (nnnn = indirizzo di inizio della routine di 
registrazione in esadecimale. 


Protezione dei programmi 

È evidente che la possibilità di autostart è già di per 
sé una notevole forma di protezione. 

A questa possono essere aggiunti altri accorgimenti 
per rendere il programma più sicuro. 

1) Si può registrare il programma principale in ma¬ 
niera codificata. Ad esempio, si può aggiungere una 
certa quantità fissa ad ogni byte del programma ori¬ 
ginale. Nella routine di autostart sarà, quindi, suffi¬ 
ciente aggiungere, prima del JMP finale un ciclo che 


sottragga la stessa quantità nel programma caricato. 

2) Sempre prima del JMP finale, nella routine di 
autostart, si possono modificare i vettori più impor¬ 
tanti: 

$0306, $0307 Vettore di LIST. 

$0316, $0317 Vettore di BRK. 

$0318, $0319 Vettore di NMI e RESTORE. 

$0328, $0329 Vettore di STOP. 

$0332, $0333 Vettore di SAVE. 

3) I programmi su disco è possibile proteggerli rovi¬ 
nando una traccia del disco non usata via software. Il 
programma si occupa poi di controllare tale traccia 
bloccando il tutto se non viene riscontrato l’errore. 

4) I programmi su cassetta si possono proteggere 
inserendo dei caratteri speciali nel nome assegnatoal 
programma stesso. 

Infatti, terminato il LOAD, nel buffer della cassetta, 
da S033C a $03FB, si ritrovano esattamente gli stessi 
dati registrati nell’header (figura 2). 

Quindi da $0341 in poi vi è esattamente il nome usato 
per registrare un programma. Perciò se, per esempio, 
si da il comando: 

A$ = “(YELLOW) (COLORE ORIG.) INVADER” 
SAVE A$ 

salveremo su nastro il programma invader ma con il 
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nome preceduto da due caratteri che all’atto della 
stampa sullo schermo non saranno visibili, poiché il 
secondo carattere riporta il colore del cursore all’ori¬ 
ginale. 

E così possibile controllare resistenza del codice 158 
(colore giallo) nella locazione $0341, e in caso contra¬ 
rio bloccare l’esecuzione. 

Un altro sistema, molto simile, consiste nell’aggiun- 
gere al nome, degli indirizzi vitali per il funzionamen¬ 


to del programma principale. A questi indirizzi il 
programma (in linguaggio macchina), poi, accederà 
facendo dei salti indiretti del tipo: 

JMP ($0370) 

Tali indirizzi è preferibile cominciare ad inserirli a 
partire dal !7mo carattere. Infatti, quando appare il 
messaggio: 

FOUND (nome del programma) 
ne vengono visualizzati solo i primi sedici. 


SHARP PC 1251 


Le subroutine del sistema operativo 


di Mauro Lenzi 

La volta scorsa abbiamo iniziato l’analisi di quella 
particolare zona di memoria in cui sono memorizza¬ 
ti, lettera per lettera, tutti i comandi disponibili. Que¬ 
sto buffer, che occupa l’area di memoria compresa 
fra gli indirizzi 16683 e 17377, ci aveva permesso di 
fare alcune osservazioni interessanti. Innanzitutto vi 
abbiamo trovate memorizzate tutte le istruzioni “se¬ 
grete”, che avevamo scoperto nei numeri precedenti, 
assieme a quelle dichiarate sul manuale. Cosa abba¬ 
stanza curiosa è che tutte le istruzioni sono elencate 
in ordine alfabetico. 

Tuttavia la cosa più importante cheabbiamo trovato 
è che tra un’istruzione e la successiva sono memoriz¬ 
zati quattro numeri che forse ci permetteranno di 
penetrare fino al cuore del computer. 

Prima di procedere a cercare di interpretare questi 
numeri misteriosi, conviene fare “girare” il program¬ 
ma I, che rappresenta un miglioramento del pro¬ 
gramma del numero scorso, per disassemblare questa 
zona di memoria in maniera corretta. Non mi soffer¬ 
merò a commentarlo lungamente perché non presen¬ 
ta grandi difficoltà, ma desidero ugualmente puntua¬ 
lizzare qual è stato il problema principale che ho 
dovuto risolvere nel progettarlo: si è trattato di cerca¬ 
re di fare capire al computer quali fossero i numeri da 
trasformare nei corrispondenti caratteri e quali inve¬ 
ce erano i numeri misteriosi; con il programma del 
mese scorso infatti venivano visualizzati delle se¬ 
quenze del tipo RUN 176 I 122 198 RETURN 222 
H 30 164 R E A D, dove al posto dei caratteri “I” e 
“H” occorreva che venisse semplicemente visualizza¬ 
to il numero contenuto nei corrispondenti indirizzi di 
memoria. 

Il programma di questa volta non cade in simili errori 
e ha un lungo output del tipo di quello in figura 1. 


100 X = 166X3 : J = X 
I 10 B = PEEK X : IF B > 106 GOTO 200 
120 IE B = 24 THEN LET B = 52 
130 IE B = 17 THEN LET B = 4X 
140 A$ = A$ + CHR.i; (B—16) 

150 X = X + I : GOTO I IO 
200 LPRINT AS 

210 LPRINT PEEK X ; PEEK (X + I): PEEK 

(X + 2); PEEK (X + 3); 

220 X=X+4:A$ = "":J=X 
230 IF X < 17377 GOTO I 10 


Programma I. Listalo del programma per interpretare 
il contenuto de! buffet delle istruzioni. 

Bene, adesso dobbiamo finalmente cercare di in¬ 
terpretare questi numeri in relazione con le varie 
istruzioni. 

Il primo numero è di facile comprensione e credo che 
da molti lettori sarà già stato identificato: si tratta 
infatti di quel famoso numero corrispondente ad 
ogni istruzione che avevamo utilizzato, all'Interno 
del text-buffer, per scoprire le nuove istruzioni, e che 
la volta scorsa avevamo battezzato come “numero di 
compattazione”. 

L’interpretazione del secondo e del terzo è stata ab¬ 
bastanza difficoltosa ed ha richiesto un sacco di ten¬ 
tativi, ma la scoperta del loro uso e della loro enorme 
importanza mi ha fatto dimenticare tutti gli sforzi. 
Il ragionamento che ho seguito è stato questo: alcuni, 
probabilmente due, di quei numeri debbono servire 
al sistema operativo per potere richiamare le subrou¬ 
tine in linguaggio macchina delle rispettive istruzio¬ 
ni, ma quali e in che modo? 

Esistono, in generale, due modi per farlo: uno è 
quello diretto e l’altro è quello indiretto. Se questo 
computer utilizza il modo indiretto,cioè, perspiegar- 
Io in maniera semplice, “mescola” quei numeri con il 
contenuto dei registri del microprocessore, non c’è 
alcuna possibilità di riuscire ad interpretarli, se inve¬ 
ce, come era da aspettarsi e come infatti è, li utilizza 
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Le subroutine 
del sistema operativo 

così come sono, abbiamo buone possibilità di capirli. 
A questo punto però c’è un altro bivio: questi numeri 
rappresentano un indirizzo assoluto, cioè un deter¬ 
minato numero da cui parte una certa subroutine, 
oppure rappresentano un salto relativo, cioè devono 
venire sommati ad un determinato indirizzo iniziale? 
Anche questa volta, fortunatamente, lo Sharp si 
comporta come la maggior parte dei computer e così i 
numeri rappresentano un “quasi” normale indirizza¬ 
mento diretto a due byte. Ho detto “quasi” perché i 
più diffusi microprocessori, come il 6502 e l’8080, 
necessitano che gli indirizzi di memoria vengano 
scritti al contrario, cioè prima il byte basso e poi il 
byte alto, mentre il nostro computer ha bisogno della 
rappresentazione opposta. 

Vediamo dunque di spiegare il loro semplicissimo 
funzionamento: immaginiamo di voler predisporre il 
nostro computer a fare i calcoli trigonometrici in 
radianti: il metodo più semplice sarebbe quello di 
usare l’istruzione RADIAN. 

Digitate invece CALL 22668 ed otterrete gli stessi 
effetti! Non si tratta né di magia, né di fortuna, 
semplicemente sono andato a vedere il secondo ed il 
terzo numero associato all’istruzione RADIAN (vedi 
figura I ) ed ho usato questa semplice formula: inizio 
della subroutine = secondo numero x 256 + terzo 
numero; nell’esempio precedente sarebbe cioè stato 

10 stesso digitare: 

CALL 88 x 256 + 140 

11 cui risultato è proprio 22668. 


Figura I. Output completo del programma l. 


Istruzione 

numeri associati 


AREAD 

220 

81 

38 

163 

AND 

129 

19 

18 

163 

ABS 

170 

19 

18 

163 

ATN 

165 

19 

18 

163 

ASN 

163 

19 

18 

163 

AC'S 

164 

19 

18 

163 

ASC 

125 

19 

18 

148 

BEEP 

219 

81 

64 

244 

CONT 

1X0 

81 

117 

197 

CLEAR 

197 

81 

152 

229 

CLOAD 

183 

113 

135 

197 

CSA VE 

182 

110 

253 

229 

CHAIN 

217 

1 16 

137 

165 

C 

157 

23 

5 

227 

cos 

161 

19 

18 

164 

CIIRS 

136 

19 

18 

196 

COMS 

137 

19 

18 

196 

CALI. 

201 

81 

175 

243 

DIM 

202 

81 

209 

230 

DEGREE 

196 

82 

125 

227 

DEG 

172 

127 

193 

163 

DMS 

173 

10 

58 

164 

DATA 

203 

81 

38 

165 


Seguito figura 1. 

DEBUG 

181 

23 

5 

243 

END 

212 

82 

135 

163 

EXP 

166 

19 

18 

165 

ERROR 

150 

23 

5 

243 

FOR 

209 

82 

145 

180 

GOTO 

215 

83 

38 

229 

GOSUB 

216 

83 

76 

164 

GRAD 

192 

83 

114 

245 

INPUT 

194 

83 

126 

226 

IF 

208 

84 

29 

166 

INSTAT 

191 

109 

15 

227 

INT 

169 

19 

18 

166 

INKEYS 

138 

19 

18 

211 

KEY 

153 

109 

149 

244 

LIST 

179 

84 

110 

197 

LLIST 

188 

122 

253 

198 

LPRINT 

159 

124 

39 

163 

LOG 

168 

19 

18 

162 

LN 

167 

19 

18 

163 

LET 

210 

84 

227 

163 

LEN 

127 

19 

18 

133 

LEFTS 

140 

19 

18 

211 

MEM 

178 

19 

18 

197 

MERGE 

184 

113 

157 

196 

MIDS 

142 

19 

18 

212 

NEXT 

213 

85 

89 

163 

not 

134 

19 

18 

163 

NEW 

177 

85 

228 

242 

ON 

204 

86 

60 

164 

0 

156 

23 

5 

231 

OUTSTAT 

190 

109 

47 

226 

OR 

133 

19 

18 

163 

OFF 

205 

23 

5 

245 

PRINT 

193 

86 

169 

228 

PASS 

187 

87 

96 

194 

PI 

189 

19 

18 

196 

PEEK 

175 

19 

18 

164 

POKE 

206 

87 

220 

229 

PAUSE 

218 

87 

69 

179 

RUN 

176 

89 

122 

198 

RETURN 

222 

88 

30 

164 

READ 

207 

88 

236 

167 

RESTORE 

223 

88 

59 

163 

RND 

174 

19 

18 

166 

RANDOM 

147 

88 

101 

230 

RIGHTS 

141 

19 

18 

198 

RADIAN 

195 

88 

140 

227 

REM 

211 

90 

113 

163 

ROM 

158 

109 

162 

212 

STOP 

214 

88 

150 

163 

SQR 

135 

19 

18 

163 

SIN 

160 

19 

18 

163 

SGN 

171 

19 

18 

164 

STR$ 

139 

19 

18 

164 

STEP 

145 

23 

5 

230 

SETCOM 

155 

107 

117 

244 

THEN 

146 

23 

5 

227 

TAN 

162 

19 

18 

164 

TRON 

185 

88 

154 

229 

TROFF 

186 

88 

158 

226 

TO 

144 

23 

5 

245 

USIGN 

221 

88 

162 

243 

VAL 

126 

19 

18 

148 

WAIT 

149 

88 

195 

240 
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SEGRETI DEI PERSONAL 


Naturalmente questa formula è valida anche per mol¬ 
te altre istruzioni, che si eseguono sia in modo imme¬ 
diato, come RUN o LIST, oppure in modo differito, 
come STOP. 

Tuttavia ci sono molte eccezioni che costituiscono 
una delle più grandi “stranezze” di questo computer: 
parecchie istruzioni e tutte le funzioni matematiche 
hanno, secondo la suddetta formula, inizio alla loca¬ 
zione: 

18 x 256 + 19 = 4627 

e quindi in una zona di memoria dove noi avevamo 
trovato solo una lunga serie di numeri progressivi 
senza alcun senso! 

Questa incongruenza è difficilmente spiegabile, per¬ 
ciò, per il momento, si possono azzardare solo delle 
ipotesi. Non credo che la formula suddetta sia sba¬ 
gliata, perché fornisce la giusta subroutine per un 
numero notevole di istruzioni e quindi non vi è alcun 
motivo per cui dovrebbe fornire risultati sbagliati in 
quei casi particolari. D’altra parte è assurdo anche 
che l’istruzione PEEK fornisca dei dati sbagliati per 
quella particolare zona di memoria e funzioni perfet¬ 
tamente in tutta la memoria rimanente. Le uniche 
risposte possibili, sulla base delle informazioni che 
abbiamo scoperto fino ad ora, sono due: o esiste una 
l parte della ROM interscambiabile, che può essere 
i letta solo dopo avere richiamato particolari locazioni 
e che viene usata dal computer solo in particolari 
i situazióni, oppure in corrispondenza di questa area 
di memoria è stato inserito un apposito coprocessore 

I 


matematico ed alfanumerico, che l’istruzione PEEK 
non riesce a “vedere”. Io credo che sia più probabile 
la seconda ipotesi, in ogni caso sono convinto che la 
curiosissima istruzione ROM possa giocare un ruolo 
molto importante per la risoluzione di questo proble¬ 
ma. Molto probabilmente il mistero è legato al quar¬ 
to numero, di cui per ora non ho chiaramente com¬ 
preso l’utilizzo. 

Infatti non può venire utilizzato come numero di 
riconoscimento, perché risulta ripetuto in molte 
istruzioni, e, d’altra parte, fra le istruzioni con quarto 
numero uguale non sembra esserci alcun apparente 
legame. Per esempio quale affinità può esserci fra PI, 
COM3, CHRS, MERGE?! 

L’ultima “stranezza” che abbiamo trovato riguarda 
la scoperta di due nuove pseudo istruzioni: il coman¬ 
do “0” e il comando “C”. Naturalmente queste due 
lettere non possono essere delle vere e proprie istru¬ 
zioni, tuttavia sono presenti nel nostro buffercoi loro 
quattro numeri corrispondenti, perciò avranno an¬ 
che loro un motivo di esistere, anche se per adesso ci è 
completamente oscuro. 

In ogni caso, per questa volta, possiamo essere 
molto contenti di queste scoperte, perché, come si 
vedrà in seguito, ci permetteranno di trovare molte 
altre cose interessantissime e ci apriranno la strada 
per l’interpretazione del linguaggio macchina di que¬ 
sto computer. 

La prossima volta ci occuperemo del display, trovan¬ 
do, come al solito, le cose più insolite! 


ZX SPECTRUM 

ON ERROR GO TO 
e disabilitazione del tasto BREAK 

di Marcello Spero 

Molte macchine, anche della categoria home, 
dispongono di una istruzione di salto in caso di erro¬ 
re. In tal modo l’arresto accidentale di un program¬ 
ma può essere evitato, e tutte le azioni necessarie alla 
correzione dell’errore avvenuto possono essere corn¬ 
ute aN’interno del programma stesso. Lo Spec- 
trum, pur così completo per la sua categoria, è privo 
ui questa possibilità. È comunque sufficiente una 
breve routine in linguaggio macchina per dotarlo 
dell’equivalente dei più evoluti ON ERROR GO TO. 
Vediamo prima di tutto quali sono le caratteristiche 
di questa nuova istruzione. 
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Figura 1. //procedimento di gestione dell’indirizzo di 
ritorno. 


































ON ERROR GO TO 
e disabilitazione 
_del tasto BREAK 

• Ha la forma: FN (n), in cui l’argomento n è il 
numero di linea a cui saltare in caso di errore. Può 
essere anche usata con n = 0, nel qual caso ha il 
significato di END ERROR GO TO. ossia di disabili¬ 
tazione di una precedente ON ERROR. 

• Una volta eseguita, e fino all’esecuzione di un’istru¬ 
zione di disabilitazione, conserva la sua validità, in 
modo da far fronte ad errori avvenuti in qualsiasi 
punto del programma. 

• Il tipo di errore avvenuto, nonché il numero di linea 
e di istruzione in cui si è verificato sono facilmente 
accessibili da parte del programma, che dovrà servir¬ 
sene per valutare il da farsi. 

• Gli errori 0 (Fine programma), 9 (STOP) e C (non- 
sense in BASIC) non provocano alcun salto, ma 
l’arresto consueto con il rispettivo messaggio. Nel 
caso dei primi due il motivo è consentire al program¬ 
ma di fermarsi senza dover staccare l’alimentazione; 
per il terzo, invece, trattandosi di un errore nella 
sintassi del programma, l’arresto è d’obbligo, pena 
una caduta del sistema. 

Per comprendere come tutto questo sia stato realiz¬ 
zato occorre spendere due parole sul modo in cui lo 
Spectrum si occupa degli errori. Al verificarsi di un 
errore il sistema pone nella variabile di sistema ERR- 
NR un codice che ne indica il tipo, per poi saltare alla 
routine posta in ROM all’indirizzo 8, che si occupa 
dell’eliminazione delle sue eventuali conseguenze 
dannose. Al termine il sistema ritorna nel ciclo prin¬ 
cipale di funzionamento. Il punto di rientro è ben 
preciso, e gli viene indicato tramite la variabile di 
sistema ERR-SP. 

Questa indica infatti la posizione, all’interno della 
catasta operativa della macchina, in cui è conservato 
tale indirizzo di ritorno. In figura 1 vedete schematiz- 




Listato I. Assembly della routine di predisposizione e 
ON ERROR GO TO. 


org 50001 
e qu 4.8 OFFS-1 
eau 67 OFFS-2 
8qu 4-867 ERR-RT 
equ 23618 NUPPC 
equ 23610 ERR-NR 
squ 23635 PROG 
equ 7030 STMT-RET 
equ 23613 ERR-SP 
equ 23728 F-S-URR 
equ 23563 DEFRDD 


ROUTINE DI PREDISPOSIZIONE 


' r e c u t 

sero nume ro 

di linea 

50001 

2fl 0B 50 

Id hl,(DEFRDD) 

50004 

23 

ine hi 

50005 

23 

ine hi 

50006 

23 

ine hi 

50007 

23 

ine hi 

50008 

5E 

Id e , (h l) 

50009 

23 

ine hi 


Seguito listato I. 


50010 

56 


r— 

a 

d, (hi) 

' e ' zero 

•7 



50011 

7R 


ld 

a, d 

50012 

B3 


o r 

e 

50013 

20 

0R 

J r 

nz , ON 

'in caso 

di zero 



50015 

2fl 

3D 50 

ld 

hl,(ERR-SP 

50018 

11 

03 13 

ld 

de,ERR-RT 

50021 

73 


ld 

(hi) , e 

50022 

23 


ine 

h l 

50023 

72 


ld 

(hi) ,d 

50024 

09 


ret 


'se non e 

' zero 



50025 

ED 

53 B0 50 

ld (F-S-URR) /di 

'calcolo 

indi rizzo 

TRRP 

50029 

21 

30 00 

ld 

hl,OFFS-1 

50032 

09 


add 

h l , bc 

50033 

ED 

5B 3D 50 

ld 

de, (ERR-SP 

50037 

EB 


ex 

d e . h l 

'modi 

fica 

valore in catasta 

50038 

73 


ld 

(hi) , e 

50039 

23 


ine 

h l 

50040 

72 


l d 

(hi) , d 

'ripetizione per i 

l secondo 

50041 

21 

43 00 

ld 

hl,OFFS-2 

50044 

09 


add 

h l , bC 

50045 

73 


Ld 

(hi) , e 

50046 

23 


ine 

h l 

50047 

72 


ld 

(hi) ,d 

50048 

09 


ret 



'ROUTINE "ON ERROR GO TO" 
'rito rno normale per 0, 9, C 


JUMP 


' ripristino valore in catasta 


«ama 

50049 

21 

03 

13 

ld 

h l 

50062 

3R 

3R 

50 

ld 

a , 

50055 

30 



ine a 

50056 

28 

08 


J r 

Z / 

50058 

FE 

09 


cp 

9 

00060 

28 

04 


Jr 

Z , 

50062 

FE 

0C 


cp 

12 

50064 

20 

01 


Jr 

nz 

5^§i?6 

E9 



JP 

(h 


50070 

D5 



push de 


'recupero 

numero 

dì linea 


50071 

11 

42 

50 

ld de.NUPPC 


50074 

21 

B0 

50 

ld hi,F-S-URR 


50077 

01 

02 

00 

ld bc,2 


50080 

ED 

B0 


Idi r 


'salvataggio 

nume ro linea. 


istruzione 

e tipo errore 


50082 

2R 

53 

50 

ld hi,(PROG) 


50085 

01 

05 

00 

l d bc,5 


50088 

09 



add hi,bc 


50089 

EB 



ex de.hl 


50090 

36 

01 


ld (hi) ,1 


50092 

23 



ine hi 


50093 

01 

03 

00 

ld bc,3 


50096 

ED 

B0 


Idi r 


50098 

3R 

3R 

50 

ld a, (ERR-NR) 


50101 

FE 

09 


cp 9 


50103 

38 

02 


Jr c,NUM 


50105 

06 

07 


add a,7 


^0?07 

06 

31 


add a j 49 


50109 

12 



l d (de ) , a 



'azzeramento codice errore 
50110 3E FF Id a,255 

50112 32 3R 5C Id (ERR-NR),a 

'salto a STMT-RET 

50115 C3 76 1B Jp STMT-RET 
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ON ERROR GO TO 
e disabilitazione 
_del tasto BREAK 


zato questo contorto procedimento. Ora, se noi mo¬ 
difichiamo il valore all’interno della catasta (di cui 
conosciamo la posizione grazie a ERR-SP) forziamo 
il sistema a riprendere da un punto diverso dal nor¬ 
male (e la cosa comporterebbe l’arresto del program¬ 
ma e la stampa dell’appropriato messaggio di errore). 
L’indirizzo di ritorno più interessante, nel nostro 
caso, è quello della routine ROM che viene chiamata 
al termine di ciascuna istruzione di un programma. 
Questa routine (si chiama STMT-RET) controlla, 
tramite lo stato delle variabili di sistema NEWPPC e 
NSPPC, se c’è qualche salto da eseguire (normalmen¬ 
te in conseguenza di un’istruzione GO TO o GO 
SUB) o se basta passare all’istruzione successiva, e si 
comporta di conseguenza. 


42, 

11 , 

92, 

35 , 

35, 

35 , 

35, 

94- , 

35, 

86, 

122, 

179, 

32, 

10, 

4-2, 

61 , 

92, 

17, 

3, 

19, 

115, 

35, 

114-, 

201 , 

237, 

83, 

176, 

92, 

33, 

4-8, 

0, 

9, 

237, 

91, 

61, 

92, 

235, 

115, 

35, 

114, 

33, 

67, 

0 , 

9, 

115, 

35 , 

114-, 

201 / 

33, 

3, 

19, 

58, 

58, 

92, 

60, 

40 , 

s. 

254-, 

9, 

4-0, 

4-, 

254-, 

12, 

32, 

1, 

233, 

17, 

129, 

195, 

213, 

17, 

66, 

92, 

33, 

176, 

92, 

1 , 

2, 

0, 

237, 

176, 

4-2, 

83, 

92, 

1 , 

5, 

0, 

9 , 

235, 

54., 

1, 

35, 

1 , 

3, 

0, 

237 , 

176, 

58, 

58, 

92, 

254-, 

9, 

56, 

2, 

198, 

7, 

198, 

4.9, 

18, 

62, 

255, 

50, 

58, 

92, 

195, 

118, 

27 





Listato 2. Codice macchina delle due routine. 


Supponiamo ora di avere un programmino in lin¬ 
guaggio macchina che ponga al posto del normale 
indirizzo di ritorno l’indirizzo di una routine che, 
dopo aver riportato ERR-NR al suo valore normale 
(indicante “nessun errore in corso”) modifichi 
NEWPPC e NSPPC in modo appropriato e quindi 
salti a STMT-RET: avremo ottenuto una istruzione 
di ON ERROR GO TO. Ci manca solo di “ricorda¬ 
re” il tipo di errore e dove si è verificato, e questo lo 
possiamo ottenere travasando in un luogo apposito il 
contenuto di ERR-NR, prima di modificarlo, e delle 
variabili PPC e SUBPPC, che contengono i dati rela¬ 
tivi all’ultima istruzione eseguita. 

Il listato I è l’Assembly delle due routine: quella di 
predisposizione del sistema e quella eseguita in caso 
di errore. Praticamente, la prima si occupa della 
lettura del numero di linea indicato nella FN chia¬ 
mante, che funge da istruzione ON ERROR, secondo 
il metodo illustrato in questa rubrica nello scorso 
numero. Se il valore letto è zero viene ripristinato 
all’interno della catasta il valore originale, ristabilen¬ 
do in tal modo il funzionamento normale. 
Altrimenti il numero viene trasferito in una apposita 
variabile (è stata usata la variabile all’indirizzo 
23728, inutilizzata dal sistema), da cui sarà letto in 
caso di errore. Quindi viene modificato l’indirizzo di 
ritorno, in modo da attivare il salto in caso di errore. 


Infine l’indirizzo di inizio della seconda routine, cal¬ 
colato in base alle dimensioni della prima,contenuto 
nel registro bc, viene inserito in posizione opportuna; 
questo procedimento consente di caricare in linguag- 
gio macchina a qualsiasi indirizzo senza dover effet¬ 
tuare alcuna modifica. La seconda routine si occupa 
invece del salto vero e proprio. Chiamata in caso di 
errore, modifica NWPPC e NSPPC secondo il valore 
contenuto nella variabile 23728, controlla che non si 
tratti degli errori 0, 9 e C (in questi casi si limita a 
saltare al giusto indirizzo di ritorno, provocando 
arresto e messaggio), ripristina il valore all’interno 
della catasta, per eventuali chiamate successive, e 
quindi salta a STMT-RET. 

Il listato 2 riporta il codice macchina che, come 
abbiamo visto, è collegabile ovunque, anche se l’As- 
sembly riporta 50001 come indirizzo di inizio. Si 
tratta di I 17 byte. Per il caricamento potete servirvi, 
come di consueto, di uno dei numerosi programmi 
pubblicati a questo scopo in passato sulla rivista. 
Nei listati 3 e 4 sono riportati, invece, alcuni esempi di 
uso. Il listato 3 illustra l’impiego più comune, in caso 
di errore vero e proprio. Il listato 4, invece, dimostra 
un uso particolare: la disabilitazione del BREAK. 
Sullo Spectrum, infatti, il BREAK è considerato un 
errore, e trattato di conseguenza; perciò può essere 


1 

REM 1234 


10 

REM 



***•****#*■*•**■**$■*■£*■*■***■***** 


* 

* 


* DISflBILITflZIONE BREAK 

* 


* 

& 


*************#************-* 

20 

DEF FN a (X) =USR 60001 


30 

DEF FN b(X)=PEEK (PEEK 
23635+256*PEEK 2363S+4+X) 


35 

RRNDOMIZE FN a(1000) 


40 

PAUSE 0 


50 

STOP 


1000 

IF CHR* FN b(4)=”L" THEN 
PRINT “■ BREAK disabi litato' 

« . 


GO TO 40 


1020 

STOP 



Listato 3. Un semplice programma dimostrativo. 


intercettato e riconosciuto dalla nostra routine e dal 
sottoprogramma BASIC relativo. A questo punto un 
ritorno al programma principale compie la disabili¬ 
tazione. 

Come potete osservare, nei due programmi esempli¬ 
ficativi è presente una prima linea REM, contenente 
solo quattro caratteri. Questa linea apparentemente 
inutile funge in realtà da “magazzino” per i valori 
relativi al tipo di errore, ed al numero della linea e 
dell’istruzione in cui si è verificato. Per rendere più 
agevole la sua interpretazione conviene dotare il pro- 
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1 

REM 1234- 


10 

REM 



*************************** 


* 

* 


* PROGRAMMO DIMOSTRATIVO * 


* 



*************************** 

20 

DEF FN J (X) =U5R 60001 

30 

DEF FN b(X) =PEEK CPEEK 


23635+256*PEEK 

23636+4-+X 1 

35 

RANDOMIZE FN a 

(10001 

4-0 

NEXT h 


50 

STOP 


1000 

PRINT “errore 

”;CHR* FN b 


(4.);" in Linea 

FN b (1) + 


256*FN b (2.1 ; " , 
b ( 3.1 

ist r. ”;fn 

1010 

STOP 



Listato 4. La disabìlitazione del tasto BREAK. 


gramma della funzione b, che vedete nel listato 5, 
nonché negli esempi. Tenendo conto che le informa¬ 
zioni aH’interno della REM sono cosi disposte: 

• carattere 1 byte meno significativo del numero di 
linea; 

• carattere 2 byte più significativo del numero di 
linea; 

• carattere 3 numero di istruzione; 

• carattere 4 carattere (0-9 e A-R) rappresentante il 
tipo di errore. E facile intuire che: 

FN b ( 1 ) + 256 ★ FN b (2) darà il numero della linea; 
FN b (3) darà il numero dell’istruzione; 

CHR$ FN b (4) darà il simbolo dell’errore. 

Per mezzo di questi dati è possibile operare le scelte 
piu idonee a qualsiasi situazione. 

Ricordate comunque che, per un corretto funziona¬ 
mento del tutto, l’istruzione REM a quattro caratteri 
dovrà essere sempre la prima istruzione del program¬ 
ma. . 


10 

REM 



*************************** 


* 

* 


* FUNZIONE DI LETTURA REM 

* 


* 

* 


*************************** 

30 

DEF FN b(X J =PEEK (PEEK 
23635 +256 *PE£K 23636+4-+X) 



Listato 5. Funzione di lettura REM. 


La FN a ( ), invece, che conterrà fra parentesi il 
numero di linea per il GO TO in caso di errore, od 
uno zero per la disabilitazione dell’istruzione stessa, 
ha forma: 

FN a (n) = USR inizio 

come potete vedere dagli esempi, dove “inizio” sarà 
l’indirizzo a cui avrete collocato il codice macchina 
(occhio alla RAMTOP). B 



SOFTWARE HOUSE - Casella Postale 4 
13055 - Occhieppo Inferiore (VC) 


Tel. 015/592730 


SOFTWARE PER 

COMMODORE 64 

(disco o cassetta] 


TERRAGON - Gioco di simulazione spa¬ 
ziale 

CODICE 3 - Gioco di simulazione medica 
ALTO MEDIOEVO - Simulazione eco¬ 
nomica 

ATOMO - Simulazione centrale atomica 

BIORITMI + HIDDEN CODE 
TORRE DI HANOI + OTHELLO 
BLACK JACK 

DATA BASE SORG. - Sorgente per ge¬ 
stione archivi (solo dischetto) 


L. 3D.000 
L. 30.D00 

L. 30.000 
L. 30.000 
L. 30.000 
L. 30.000 
L. 30.000 

L. 50 000 


SOFTWARE PER TI 99/4A (solo cassetta) 


TILANDIA - Simulazione economica 
SUPERBOWL - Simulazione football 
americano 

SPACE TI/99 - In caccia fra le stelle 

POKER + ROULETTE 
LABIRINTO 3-D 

PYRAMID - Adventure nella piramide 
maledetta 

MEM 

CONTABILITA' CASALINGA (pratica 
gestione) 


L. 25.000 

L. 25.000 
L. 25.000 
L. 25.000 
L. 25.000 

L. 25.000 
L. 25.000 

L. 50.000 


SOFTWARE PER ATARI (solo cassetta) 

ALTO MEDIOEVO - Simulazione eco¬ 
nomica L. 25.000 

A vostra disposizione per software su misura per: 

COMMODORE VIC 20 OLIVETTI M 20 

COMMODORE C-64 IBM PC 

OLIVETTI MIO IBM XT 


Spedire in busta chiusa a: 

BA SE s.n.c. - Casella Postale 4 - 13055 Occhieppo inf. (VC) 

Nome e Cognome_ 

Indirizzo_____ 

Cap._Città_Provincia_ 

VIC20□ C64D IBM PCD MIOO M20Q AtariD TexasD 

Ordino n° _ □ Disco □ Cassetta_ 

Ordino n° _ □ Disco □ Cassetta _ 

Per un totale di Lire _ 

Pagamento □ Allegato assegno non trast. sped. celere 
□ Contro assegno + spese postali 




























Scritte verticali con lo Spectrum 

li lettore Giovanni Corbelli di Ferrara ci ha inviato un 
programma BASIC che prepara un set di caratteri girato di 
90° a destra oppure a sinistra, consentendo di realizzare 
scritte verticali di sicuro effetto. 

Il programma si avvale di una breve routine in lin¬ 
guaggio macchina che compie due operazioni: 

1) effettua un trasferimento di 8 byte dalla locazione 
puntata dai byte 60001/2 alla locazione puntata dai 
byte 60004/5; 

2) “ruota” di 90° il gruppo di 8 byte appena “trasferi¬ 
to” e pone il risultato di questa operazione (ovvero 
altri 8 byte) a partire dalla locazione puntata dai byte 
60013/14. 

In verità le routine in linguaggio macchina sono due: 
la prima ruota di 90° a sinistra il blocco di byte, 
mentre la seconda ruota il blocco di byte a destra. 
Utilizzando la prima routine si otterranno caratteri 
per scritte verticali ascendenti, mentre utilizzando la 
seconda si otterranno caratteri per scritte verticali 
discendenti. Come indicato nel listato 2, però, le due 
routine differiscono solo per due byte, quindi con 
sole due POKE è possibile da una routine ottenere 
l’altra. Nell’inserimento dei codici si tenga presente 
che le lineette indicano lo spazio da lasciare per tanti 
byte quante sono le lineette stesse , quindi al momen¬ 
to della “pokatura” dei codici si sostituiscano ad esse 
degli zeri. 

Venendo al programma, la prima parte (linee 10- 
160) provvede ad effettuare la rotazione di blocchi di 
byte calcolando per ogni carattere l’indirizzo di par¬ 
tenza da cui prelevare i byte e l’indirizzo di partenza a 
partire dal quale collocare i byte ruotati. Il program¬ 
ma richiede in “input” l’indirizzo di partenza del 
nuovo set di caratteri e l’indirizzo di partenza dello 
spazio utilizzato dalla ruotine in linguaggio macchi¬ 
na. Attenzione a fare bene i calcoli perché se il nuovo 
set copre parzialmente o totalmente l’area destinata 
allo stack del calcolatore, si potrebbe avere un crash 
o un reset totale del sistema. 

Nel caso si usi la prima routine in linguaggio macchi¬ 
na, la seconda parte del programma contiene due 
routine per stampare scritte ascendenti; con GO- 
TO/180 stamperà l’intero set di caratteri in verticale 
e poi i caratteri battuti sulla tastiera. Per la stampa di 
qualsiasi frase basta dare opportuni valori alle varia¬ 
bili r (riga di partenza), c (colonna di partenza), a$ 
(frase da stampare) e dare GOSUB 8000. 


5 REM FORMAZIONE DEL NUOUO 
SET DI CARATTERI 
10 input "Start nuovo set cara 
tteri ? "jìt 

20 input "Start area utitizzat 
a 7(8 bytes) ";sk 

30 LET p r «PEEK 23606+256«PEEK 
23607 +256 

4.0 LET Skl«INT (Sk/256); LET s 
K2>Sk-256*Skl 

50 POKE 60004,SK2; POKE 60005, 
SUI 

60 FOR I«32 TO 127 
70 LET prl*INT ipr/256): LET p 
T2=»P r -256*p r 1 

80 LET Stl-INT (St/256): LET S 
t2»S t-256*S11 

90 POKE 60001 /PT2: POKE 60002, 
P r 1 

100 POKE 60013,St2: POKE 60014, 
s t 1 

110 RANDOMIZE USR 60000: LET pr 
*pr+8; LET st*at+8 
120 NEXT I 
130 LET s t »S t-1024 
140 print "Per ottenere il nuov 
o set di ca-ratteri effettuare t 
e seguenti " 

150 LET Stl-INT (St/256); LET S 
12 = st-256*S 11 

160 PRINT "POKE 23606,";St2'"PO 
KE 23607,";stl 
165 REM UTILIZZO E TEST 
DEL NUOUO 
SET DI CARATTERI 
170 STOP : CLS 

180 LET a®»"": FOR 1-32 TO 127: 
LET afsat+CHRi I 
190 NEXT I 

200 LET r >21: LET C»0: CO SUB 8 
000 

210 LET a S-INKEY|: IF ai»"" THE 
N GO TO 210 
220 GO SUB 6000 

230 IF INKEYi■THEN GO TO 210 
240 GO TO 230 

8000 POKE 23606,St2: POKE 23607, 
S 11 

8010 FOR I»1 TO LEN ai 
6020 PRINT AT r,Cjai(I) 

8030 LET r = r -1 : IF r«-l THEN LET 
r =21 : LET C » C +1: IF C«32 THEN C 
LS : LET C«0 
8040 NEXT I 

6050 POKE 23606,0: POKE 23607,60 
; RETURN 

9000 CLEAR : SAUE "UERTICALE" LI 
NE 9900 

9010 SAUE "CODE UERTICALE"CODE 6 
0000,35: STOP 

9900 LOAD "CODE UERTICALE"CODE : 
RUN 


Listato 1. Programma BASIC. Per prova si scelga una 
zona di memoria sicuramente libera (per esempio 
30000) ed un indirizzo di poco inferiore per il secondo 
INPUT (esempio 29990). 
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Scritte verticali 
con lo Spectrum 


INDIRIZZO 

MNEMONICI 

OPERANDI 

HF.X 

DECIMALI 

60000 

LD 

HL, pr 

21_ 

33, _ 

60003 

LD 

DE, sk 

Il_ 

17, _ _ 

60006 

PUSH 

DE 

D5 

213 

60007 

LD 

BC, 8 

01 08 00 

1, 8, 0 

60010 

LDIR 


ED B0 

237, 176 

60012 

LD 

DE, st 

Il_ 

17, __ 

60015 

POP 

HL 

Et 

225 

60016 

LD 

B, 8 

06 08 

6, 8 

60018 

PUSH 

BC 

C5 

197 

60019 

PUSH 

HL 

E5 

229 

60020 

LD 

B, 8 

06 08 

6, 8 

60022 

SRL 

(HL) 

CB 3E 

203, 62 

60024 

RLA 


17 

23 

60025 

INC 

HL 

23 

35 

60026 

DJNZ 

- 6 

10 FA 

16, 250 

60028 

POP 

HL 

É1 

225 

60029 

LD 

(DE), A 

12 

18 

60030 

INC 

DE 

13 

19 

60031 

POP 

BC 

CI 

193 

60032 

DJNZ 

- 16 

10 F0 

16, 240 

60034 

RET 


C9 

201 


La routine del listato 2 genera i caratteri per scritte verticali ascendenti. 
Per ottenere i caratteri per scritte verticali discendenti apportare le se¬ 
guenti modifiche: 


INDIRIZZO 

MNEMONICI 

OPERANDI 

HEX 

DECIMALI 

60022 

60024 

SLA 

RRA 

(HL) 

CB 26 

1F 

203, 38 

31 


CODICI DECIMALI 



■ 

33 

60021 

■ 

0 

6000S 

■ 

0 

60003 

8 

17 

60004 

■ 

0 

60006 

■ 

0 

60006 

a 

213 

6000? 

■ 

1 

60008 

■ 

8 

60009 

■ 

0 

60010 

s 

23? 

60011 

■ 

176 

6001S 

■ 

17 

60013 

s 

0 

60014- 

a 

0 

60015 

8 

225 

60016 

■ 

6 

60017 

■ 

8 

60018 

■ 

197 

60019 

■ 

229 

60050 

■ 

6 

60051 

■ 

8 

60055 

■ 

203 

60053 

B 

62 

60054 

■ 

23 

60055 

■ 

35 

60056 

■ 

16 

6002? 

■ 

260 

60058 

60059 

■ 

■ 

225 

18 

60030 

■ 

19 

60031 

■ 

193 

60032 

* 

16 

60033 

■ 

240 

60034 

■ 

201 


Listato 2. Assembly e assemblato della routine per la 
generazione del set verticale. 


Figura 1. Lista dei codici decimali da inserire in memo¬ 
ria per caricare la routine. 
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ECOUBRJ 


Siamo un'importante azienda 
operante nel settore della vendita rateale, 
per potenziare la nostra rete di vendita 


CERCHIAMO 

SU TUTTO IL TERRITORIO NAZIONALE 

• Agenti professionisti 

• Venditori alla prima esperienza 


OFFRIAMO 

• Corsi di formazione 

• Stabilità del posto di lavoro 

• Possibilità di forti guadagni 

Gli interessati sono pregati di inviare curriculum a: Eco Libri 
Ufficio del personale - Via Mantova, 44 - 00198 Roma 
Si assicura massima riservatezza 

Q Vende ratealmente anche MM l'enciclopedia di 
elettronica e informatica del Gruppo Editoriale 
ecolbn Jackson. 


r 



motivi in più 


per consultore la nuovo edizione 
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GUIDA MONACI 
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* MEDICI SPECIALISTI 

di rurra Iralia suddivisi in 
25 specializzazioni 

* Indirizzi * Numeri Telefonici * Ambulatori 
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SERVIZIO SOFTWARE 


P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo 


P.S. n° 

Programma 

Sistema 

Prezzo 

Codice 

Supporto 

3 

La carta dei cielo 
Collisione 

Apple II 

30.000 

1 

Disco 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

40.000 

4 

Disco 

5 

Pretty printer 

Shape table 

Apple II 

30.000 

6 

Disco 

7 

Data base modulare 

Apple II 

25.000 

7 

Disco 

12-13 

Wei-ch'i 

CBM 3032 

20.000 

8 

Cassetta 

14 

Tool-Kit 

C 64 

35.000 

9 

Cassetta 

19 

Type Writer 

VIC 20 

30.000 

10 

Disco 

20 

Scopa 

C 64 - 3032 

25.000 

11 

Cassetta 



Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare il seguente tagliando 


Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 • 20124 Milano 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 



GRUPPO EDITORIALE JACKSON 




Cod. L 

1 

1 1 1 

1 

J a L. 

1 

1 

l 

1 

1 

1 

1 

Cognome 

Cod. L 

1 

1 1 1 

1 

J a L 

I 

I 

1 

1 

1 

1 

1 

Cod. L 

I 

1 1 1 

1 

J a L. 

I 

I 

1 

1 

1 

1 

1 

Indirizzo . 


| 

1 1 1 

1 

J a L. 

I 

I 

1 

1 

1 

1 

1 

CAP 

Ctìd. L 

1 

J 1 L 

1 

J a L. 

1 

1 

1 

1 

1 

1 

1 

Città 

f SPESE POSTALI 
(contributo Asso) L 2.000 

TOTALE L. 

| 

_L 

1 

I 

1 

1 

I 



che pagherò al postino alla consegna del pacco. 


Firma 




















































Il Taglio dello Spectrum 

Il lettore Diego Bertazzi di Caluso(TO) ci ha invia¬ 
to la conversione per ZX Spectrum 48 Kbyte del 
programma “// Taglio del TI99/4A". apparso su Per¬ 
sonal Software n. 10/11, che permette di giocare al 
Taglio contro il computer. 

Se non conoscete la versione originale, notate che la 
mossa del computer viene determinata da una routi¬ 
ne che stima statisticamente la mossa del giocatore. 
Le istruzioni vengono stampate dal programma stes¬ 
so per ulteriori dettagli si rimanda all’articolo origi¬ 
nale. ■ 


Listato 1. Listato de! programma de! gioco del Taglio 
per Spectrum 48 Kbyte. 


+++++++++++++++++++++++ 
TAGLIO 

Conversione per 

ZX-Spectrum 4.8Kbyte 

. by BERTAZZI DIEGO 
+ + + + + + + + + + + + + + + + + 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REh 

9 REM 
10 REM 

20 POKE 23562,2: BÙRDER 1: PRP 
ER 1; INK 9. CLS : POKE 23609,4.0 
90 REM 

95 REM Iniziatizzazione 
99 REM 

100 LET C =0 : LET nc=0. LET nà=0 
LET c6=0 

110 DIM X(200): DIM y(200); LET 
tot =0 : LET ctot=0 
190 REM 

195 REM Presentazione 

199 REM 

200 FLASH 1: CLS : PRINT RT 10, 

12; FLRSH 0," RT 11,12; 

" TRGLIu ";RT 12,12," 

210 PRUSE 150: FLRSH 0: CLS : P 
RINT RT 10,12; INVERSE 1," „^ 

";RT 11,12, TRGLIO ";RT 12,12 

. Il M 

'280 DIM a*(l): INPUT "Vuoi vede 
re te regote det gioco Cs/n) ? " 

; LINE a$: IF a * ( 1) = "s " OR atti) 
="S" THEN GO SUB 9000 
320 input "Quanti turni vuoi gì 
oca re imin=50 max=200) 7 

";t: IF t <50 OR t >200 OR t < >INT 
t THEN GO TQ 320 
325 LET C =0 

327 REM 

328 REM Video principate 

329 REM 

330 CLS 

34.0 PRINT RT 1 , 2; "GIOCATORE ffiO 
ssa COMPUTER" 

34-5 IF t = C THEN GO TQ 650 
350 PRINT RT 3,4., "punti " ; 

c;RT 3,23;"punti“ _ „ 

360 PRINT RT 5,5;tot;AT 5,24.; et 
o t 

370 PRINT RT 12,5,"GIOCATORE ;H 
T 12,19;"COMPUTER" 

390 PRINT RT 14-,7, FLRSH l; : 
input "scrivi it tuo numero: '; 


Seguito listato I. 


n: IF n<l OR n>5 OR noiNT n THE 
N GO TO 390 

4.00 PRINT RT 14- , 7; n ; RT 14-,22, F 
LRSH 1," PRINT RT 9,7; INVERS 
E 1;"COMPUTER THINKING" 

500 GO SUB 1000 
510 LET C6=0 

520 PRINT RT 14,22,nc; BEEP .1, 
16: BEEP .2,24. 

530 PRINT RT 9,0,,: LET dif=nc- 


537 REM 

538 REM Controtto risuttati 

539 REM 

54-0 IF dif=l THEN LET tOt=tOt+n 
+ n C: PRINT RT 17,19, BRIGHT l;"t 
agtiato": BEEP .1,12: BEEP .1,12 
: BEEP .1,12: BEEP 1,0: PRUSE 15 
0 


550 IF d i f = -1 THEN LET 
t+n+nc: PRINT RT 17,4-, 
"tagtiato": BEEP .1,0: 

: BEEP .1,0: BEEP 1,14: 


ctot=cto 
BRIGHT 1, 
BEEP .1,0 
PRUSE 15 


560 IF difOl RND di f 0-1 THEN 
L II *£ì? l £ t+ n: LET ctot=ctot+nc 
570 PRINT RT 17,0,,, 

600 PRUSE 100* (RBS di f <>1) + 1* (A 
65 di fai): PRINT RT 14,0,,; GO T 
0 345 


550 REM 

655 REM Video rinate e punteggi 
660 REM 

665 CLS : PRINT RT 2,8;"Puntegg 
io fina te" 

670 PRINT RT 5,5,"PLAYER";RT 5, 
19,"COMPUTER" 

675 PRINT RT 7,7;tot,RT 7,22;Ct 
0 t 

680 IF CtOt >tOt THEN PRINT RT 1 
5,2;" Ebbenesi': sono ancora io 
" ’ er'mejo de' tutti." 

685 IF ctotatot THEN PRINT RT 1 
5,9;"Per stavotta ti e'"''TRB 11 
; "andata bene ! I" 

690 IF ctotctot THEN PRINT RT 1 
5,4;" Bravo !! Sei riuscito a 
""" battermi." 

695 PRUSE 300 

700 input "Vuoi fare una nuova 
partita 7"; LINE a$. IF a*(l)="s 
” OR a*(l)="S" THEN GO TO 320 
710 PRINT RT 21,11;"ARRIVEDERCI 
": STOP 
900 REM 
910 REM 

920 REM SUBROUTINE 

930 REM 

940 REM 

950 REM 

990 REM 

995 REM Subr. ricerca strategia 
999 REM 

1000 LET C=C+1 

1010 LET X(C)=n 

1013 LET cas1=INT (RND*5)+1 

1015 LET cas2=INT (RND*5)+1 

1017 IF C >9 THEN GO TO 1070 

1019 REM 

1020 REM Strategia iniziate 

1021 REM 

1024 IF C=1 THEN LET nc=cas2: RE 
TURN 

1026 IF C =2 THEN IF casl=l AND X 
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Il Taglio 
dello Spectrum 


Seguito listalo I. 


ic-llol THEN LET n C =X ( C -1) -1 ; R 
ETURN 

1(327 IF C =2 THEN LET nc=cas2: RE 
TURN 

1030 IF C =3 THEN IF X(C-l)=X(C-2 
) RND casl>l THEN LET na=XÌC-l): 
GG Tu 1080 

1032 IF C =3 THEN LET nc=cas2: RE 
TURN 

1050 IF C-3 = 1 THEN GG SUB 5500: 

GG TG 1060 

1055 GG SUB 5000 

1060 GG TG 1080 

1070 GG SUB 2000 

1075 REM 

1076 REM 

1077 REM Strategia 

1078 REM 

1080 LET P=RND*100 
1100 IF na =0 RND t-C < =13 THEN IF 
CtOt-tOt<=-20 THEN LET nC=INT ( 
RND*3) +3 : RETURN 

1110 IF na =0 RND t-C < =13 THEN IF 
Ctot-tot >=20 THEN LET nc=INT (R 
ND *3) +1 ; RETURN 

1120 IF na =0 THEN LET r.C=INT CRN 
D *5) +1; RETURN 

114.0 IF na=l RND Ctot-tot <=-20 T 
HEN IF p <70 THEN LET nC=5 : RETUR 
N 

1145 IF nasi RND Ctot-tot <=-20 T 
HEN LET nc=4: RETURN 
1150 IF na=l RND CtOt-tOt > =20 RN 
D p <75 THEN IF p<40 THEN LET nc = 
5; RETURN 

1155 IF na =1 RND CtOt-tOt > =20 RN 
D P <75 THEN LET nC=4 : RETURN 
1160 IF na =1 RND c to t-to t >=20 TH 
EN LET nC =3 : RETURN 
1170 IF na =1 THEN IF P<60 THEN L 
ET n C =5 : RETURN 

1175 IF na=l THEN LET nc=4; RETU 


CtOt-tOt <=-20 T 
LET n c = 1: RETUR 


■tot <=-20 T 


RN 

1180 IF na =2 RND 
HEN IF P <70 THEN 
N 

1185 IF na=2 RND ctot 
HEN LET nc=5: RETURN 
1190 IF na =2 RND CtOt-tOt>=20 RN 
D p <80 THEN IF P <50 THEN LET r.C = 
1: RETURN _ 

1195 IF na=2 RND CtOt-tOt>=20 RN 
D p <80 THEN LET n C =5 : RETURN 
1200 IF na=2 RND ctot-tot>=20 TH 
EN LET nC =4 : RETURN 
1210 IF na =2 THEN IF p<65 THEN L 
RETURN 

na =2 THEN LET nc=5: RETU 


na =3 RND 
p <80 THEN 


C tO t-tO t < 
LET n C =2 : 


5—20 T 
RETUR 


■to t < =:-20 T 


ET n C =1 : 

1215 IF 
RN 

1220 IF 
HEN IF 
N 

1225 IF na =3 RND Ctot 
HEN LET nc=5: RETURN 
1230 IF na =3 RND ctot-tot>=20 RN 
D p <35 THEN IF P<55 THEN LET nc = 
2: RETURN 

1235 IF na=3 RND ctot-tot>=20 RN 
D p <85 THEN LET nc=5: RETURN 
1240 IF na =3 RND ctot-tot>=20 TH 
EN LET n c =3 : RETURN 
1250 IF na =3 THEN IF P<75 THEN L 
ET nc=2: RETURN 

1255 IF na =3 THEN LET nc=5: RETU 


Seguito listato I. 

RN 

1260 IF na =4 RND CtOt-tOt <=-20 T 
HEN IF p <90 THEN LET nC=3 : RETUR 
N 

1265 IF na =4 RND C t 0 t -1 0 t <= -20 T 
HEN LET n C = 4 : RETURN 
1270 IF na =4 RND CtOt-tOt>=20 TH 
EN IF p <80 THEN LET nc=3: RETURN 

1275 IF na=4 RND ctot-tot>=20 TH 
EN LET n C =4 : RETURN 
1280 IF na=4 THEN IF P<35 THEN L 
ET nC =3 : RETURN 

1235 IF na =4 THEN LET nc=4: RETU 
RN 

1290 IF na =5 RND C t 0 t-to t < =-20 T 
HEN IF p <95 THEN LET nC=4 : RETUR 
N 

1295 IF na=5 RND Ctot-tot<=-20 T 
HEN LET n C =5 : RETURN 
1300 IF na =5 RND ctot-tot>=20 TH 
EN IF p <85 THEN LET nc=4: RETURN 

1305 IF na =5 RND CtOt-tOt>=20 TH 
EN LET nC =5 : RETURN 
1310 IF na =5 THEN IF p<90 THEN L 
ET nC =4 : RETURN 

1315 IF na =5 THEN LET nc=5: RETU 
RN 

1990 REM 

1995 REM Schemi a 5 numeri 

1999 REM 

2000 FOR d = 1 TO C-8 
2010 LET W=d 

2020 LET Z =5 

2030 IF X ( C —1) =X (d+4) RND XÌC-2) 
= X(d+3) RND X ( c-3) =x id+2) RND xl 
C -4) =X (d + 1) RND X ( C -5) =X ( d ) THEN 
GG SUB 6000 
2040 NEXT d 

2050 IF C6 < >0 THEN GO SUB 7000 
2055 IF C6=0 THEN GG SUB 3000 
2070 RETURN 
2990 REM 

2995 REM Schemi a 4 numeri 

2999 REM 

3000 FOR e =1 TO C-7 
3010 LET W=e 

3020 LET Z =4 

3030 IF X (C-1) =x (e+3) RND X(C-2> 
= X(e+2) RND X ( C-3) =X (e+1) RND X( 
c-4)=x(e) THEN GG SUB 6000 
3040 NEXT e 

3050 IF C6 < >0 THEN GG SUB 7000 
3055 IF C6=0 THEN GO SUB 4000 
3060 RETURN 
3990 REM 

3995 REM Schemi a 3 numeri 

3999 REM 

4000 FOR f=l TO C-5 
4010 LET w*f 

4020 LET Z=3 

4030 IF x ( c-1) =x ( f +2) RND x(c-2) 
=X(r+l) RND x(C-3)=xm THEN GG 
SUB 6000 
4040 NEXT f 

4050 IF C6 < >0 THEN GO SUB 7000 
4055 IF C6 =0 THEN GG SUB 5000 
4060 RETURN 
4990 REM 

4995 REM Schemi a 2 numeri 

4999 REM 

5000 FOR 9=1 TG C-3 
5010 LET w =g 
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Seguilo listato I. 


5020 

5030 

=x (g j 

5040 

5050 

5055 

5060 

5490 

5495 

5499 

5500 
5510 
5520 
5530 
6000 
5540 
5550 
5555 
5560 
5990 
5995 

5999 

6000 
6010 
6020 
6990 
6995 

6999 

7000 
7010 
7020 
3990 
3995 
3999 
9000 
9020 
9030 
e ' 1 r 
ridere 
9050 
à 50 

dove 
i ru e r 
i i co 
i d u 
ti : " 
9070 
nza e 
ggio 
incre 
o ca to 
9030 
f e r e n 
gioca 
u m e r o 
tato 
gioc 
iato" 
9090 
to pe 
9100 


X(C-2j 


LET Z=2 

IF X ( C -1) =X (g +1) AND 
THEN 90 SUB 6000 
NEXT g 

IF Có<>0 THEN GO SUB 7000 
IF Có=0 THEN GO SUB 5500 
RETURN 
REM 

schemi a i numero 


REM 
REM 
FOR 
LET 
LET 
IF > 


h =1 
w = h 
Z =1 

(c-li=x 


TO C-2 


(h) THEN GO SUB 


NEXT h 

IF C6 <>0 THEN 
IF c6=0 THEN 
RETURN 
REM 

REM Caricarne 
REM 

LET C6=C6+1 
LET y (cBJ =X (W 
RETURN 
REM 

REM Scelta 
REM 

LET cas3=INT 
LET na =y (cas3 
RETURN 
REM 

REM Regole d 

REM 

CLS 

PRINT "REGOLE 
PRINT '" 5C 

ovare lastrat 
e bat- te re 


GO SUB 7000 
LET na =0 


nto in Y (06) 
+z) 

d i Nfl 

ÌRND*C6)+1 

) 

e l gioco 


DEL TAGLIO" 
opo del gioco 
e gia per confo 
ii computer . " 
PRINT " una parità dura d 
a 200 mosse. Ad ogni mossa 
te scegliere un numero 
o tra 1 e 5, quindi anche 
mputer sceglie un numero ed 
e nume-ri vengono confronta 


PRINT Se la loro differe 
' di- versa da l, il punte 
di o- gni giocatore viene 
meritatodel numero da lui gi 

PRINT Se, invece, la di f 
za e' l, il punteggio del 
tore che ha pensato il n 
piu' basso viene incremen 
della somma dei due numeri 
ati e l'altro viene ""Tagi 

PRINT FLASH ì;"Premi un tas 
r continuare" 

PAUSE 0: CLS : RETURN 


u& ct « 
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UNA PUBBLICAZIONE FIRMATA 

GRUPPO EDITORIALE JACKSON 


Riviste firmate 
JACKSON 


La prima Rivista europea di personal 
computer, software e accessori. 

Con test, novità, analisi dei 
mercato... 

11 numeri all'anno. 

L. 4.000 a numero 
Abbonamento: solo L. 35.000 


Aspetti e problemi del software per 
personal computer, programmi, 
giochi e sistemi operativi. 

10 numeri all'anno. 

L. 3.500 a numero x 
Abbonamento: solo L, 20.000 

INFORMATICA 

La Rivista professionale per chi si 
occupa di sistemi: dai 
microcomputer ai mini, ai supermim, 
ai mainframe. Con notizie in 
anteprima dall'America. 

11 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 27.000 


l’Elettronica 

Quindicinale di politica industriale, 
componentistica, informatica e 
telecomunicazioni per uomini di 
marketing, responsabili acquisti, 
manager di settore. 

22 numeri all'anno. 

L. 2.500 a numero 
Abbonamento: solo L. 44.000 

AIJIOM4IION? 

Un'aggiornatissima panoramica 
delle nuove tecnologie 
microelettroniche e informatiche 
applicate all'automazione 
industriale. 

11 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 26.000 


tefecomu 


UiD€0 


La guida indiscussa al fantastico 
mondo dei videogames. La più 
eccitante, divertente, istruttiva 
rassegna del settore. 

11 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo l. 25.000 

elettronica 

OGGI 

Da sedici anni il punto di riferimento 
più qualificato per chi voglia 
aggiornarsi su prodotti, applicazioni, 
tecnologie, mercati, in Italia e 
all'estero. 

11 numeri all'anno. 

L. 3.500 a numero 
Abbonamento: solo l. 31.000 


Le frontiere aperte dalla telematica, 
le telecomunicazioni professionali in 
tutti i loro sottosettori. 

8 numeri all'anno. 

1.3.500 a numero 
Abbonamento: solo L. 22.000 

elektor 

Il mensile di elettronica venduto in 
mezzo milione di copie e redatto in 7 
lingue. Con articoli su: applicazioni, 
progettazioni, sperimentazioni, 
invenzioni. 

10 numeri all'anno. 

L. 3.000 a numero 
'Numero doppio' L. 6.000 
Abbonamento: solo L. 29.000 


m 


Il mondo delle 7 note in versione... 
elettronica. Con test strumentali, 
novità e analisi del mercato, 
servizi speciali. 

10 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 24.000 


Quando l'informazione 
fa testo 

In busta chiusa inviate questo coupon a: 

Gruppo Editoriale Jackson - via Rosellini, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero della 

Rivista _ 


□ 


(allego L. 1 .OOO in francobolli per contributo spese di 
spedizione) 

Inviatemi GRATIS il Catalogo della Biblioteca JACKSON 
(allego L. 1 .OOO in francobolli per contributo spese di 
spedizione) 


Nome 


, via 



1 

, CAP 

Città 


1 
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Apple 


Cambio programmi (in BASIC), idee, esperienze, opinioni es¬ 
clusivamente per applicazioni mediche, la mia configurazione 
è: Apple II 48 Kbytecon 2 drives. Salvatore Grimaldi - C so Italia, 
322 - 95014 Giarre (CT) - Tel. 095/934769 

Compro software musicale per Apple - schede muntain e mu- 
sicsystem in particolare. Domenico De Simone - Via Vado di 
Sole. 6 - 65100 PE - Tel 085/4151352 

Vendo a Ut 60000 per Apple II sintetizzatore di voce e di 
musica a 4 voci completo di dischetto software e manuale di 
istruzione. Adriano Zuin - Via Buonarroti, 1 - 20030 Senago (MI) 

- Tel. 02/99010421 

Cambio listati per Apple: schedina, aziendali, games. Telefona¬ 
re tra le 20 e le 21. tranne il sabato. Felice Rosso - Via della 
Costituzione, 51/C - 97100 RG - Tel. 0932/24313 

Vendo, cambio programmi e giochi per Apple Inviatemi un 
vostro elenco di programmi ed io vi invierò il mio. Cerco utility. 
Data Base e gestionali Gabriella Miconi - Via Olivieri, 7 - 20152 
Milano 

Vendo software per Apple II o cambio con hardware Vendo 
ZX81 più accessori più programmi. Marco Carruba - Via M. 
Campionesi. 29 - 20135 Milano - Tel. 02/585294 

Vendo Apple Ile 64 Kbyte a Ut. 824000 - drive schugat 5.25” a 
Ut. 450000 e interfaccia drive a Lit. 73000 - monitor fosfori verdi 
12" Ut. 190000 - il tutto con sei mesi di garanzia, nuovissimo, 
ancora da aprire. Leonardo Remorini - Via Saffi, 33 - 56025 
Pontedera (PI) - Tel. 0587/54024 

Scambio con disk II drive a doppio controller o vendo software 
Apple II (VisiCalc - Locksmith 5.0 - BASIC - Music maker - 
Apple writer - ecc.) Lorenza Lugli - Via Scanaroli, 60 - 41100 
Modena - Tel 059/364254 

Apple Ile vendo Locksmith 5.0 a Lit. 100000. Scrivere specifi¬ 
cando numero di telefono a: Giorgio Bassi - Via N. Sauro. 50 - 
42047 Rolo (RE) _ 

Cedo Apple li compatibile biprocessore. 64 Kbyte, tastiera, 
programmata più driver più controller più monitor fosfori gialli 
antiriflesso più libri Jackson e fotocopie. Il tutto praticamente 
nuovo a Lit. 2400000 Claudio Prodi - V ie Filopanti, 2 - 40126 
Bologna - Tel. 051 /239208 

Vendo Apple II 48 Kbyte Euro più tavoletta grafica originale 
Apple più 1 disk drive più monitor Philips ("verde più scheda 
colore PAL con modulatore più software vario (VisiCalc. Apple- 
world, Graphics magician. Toolkit, PFS File e altri). Telefonare 
ore pasti. Andrea Beghetto - Via Ospedale, 16/18 - 35121 
Padova - Tel. 049/35869 

Cerco sistema Apple Ile da cambiare con sistema Commodore 
64 più drive 1541 più stampante MPS 801 più centinaia di 
programmi fra gestionale, utility, grafica, games. Tutto nuovissi¬ 
mo. Scrivere o telefonare. Saverio Pensabene - Lungomare C. 
Colombo. 3544 - 90149 Palermo - Tel. 091/451425 
Apple: vendesi programmi perii - Ile.giochi. Utilities, Data Base 
e molte altre categorie; svariati con manuale. Disponibile vasto 
assortimento programmi ingegneria. Richiedere elenco o tele¬ 
fonare. Andrea Zappi - Via Degli Scipioni, 147 - 00192 Roma - 
Tel. 06/353665 

Vendo programmi per Apple. Vastissima bibliotefca, olire 300 
programmi gestionali, ingegneria, utility, linguaggi, giochi 
Prezzi molto convenienti. Contattatemi, rispondo a tutti Anto¬ 
nio Rossi - Via Arezzo. 119 Villa Pigna - 63040 Ascoli Piceno - 
Tel. 0736/401247 

Compro per Apple 48 Kbyte, VisiCalc ed espansione 16 Kbyte 
Cerco inoltre "Bit" nr. 8/9 - 1980 o fotocopia articolo Data Base 
parte II. Se interessalo a vostre offerte scriverò. Mauro Pasquali 

- Via Trento, 41 - 32020 Caviola (BL) 

Cambio programmi software per Apple II. Dispongo vasto soft¬ 
ware giochi. Antonello Belli - Via S. Lucia, 20 - 80132 Napoli - 
Tel. 081/425675 _ 

Vendo per Apple II “Supertoto 1.0” superprogramma totocal¬ 
cio inedito, 3 diverse opzioni di selezioni incrociate, con output 
n. colonne utili, sviluppo su monitor o stampante Lit. 70000con 
manuale. Roberto Rossi - Via Lario, 26 - 20159 Milano - Tel. 
02/6070236 _ 

Vendo programmi per Apple II o Ile di qualsiasi genere, utility, 
games. graphics, Data Base, business, didattici, ecc. Alessan¬ 
dro Giovannini - Via Privala Marazzi, 2 - 25083 Gardone Riviera 
(BS) - Tel 0365/20496 


Vorrei conoscere ragazzi 12-15 per scambio esperienze con 
creazione club ’applisti" preferibilmente zona Lecco e dintorni. 
Telefonare 13.15-14.15 oppure 18-20.15. Maurizio Lo Bello - 
Via Capodistria. 29 - 22053 Lecco (CO) - Tel. 0341 /368888 

Acquisto Apple Ile e periferiche solo se in ottimo stato ed a 
prezzo ragionevole. Rivolgersi a: Maria Grazia Di Trapani - Via 
Risurrezione, 94 - 90146 Palermo - Tel. 091/461027- 


Commodore 

Da poco in possesso di Commodore 64 cambio software listato 
oppure su nastro di qualunque genere. Ok! lo aspetto, fatevi 
sentire. Tommaso Baroncini - Via Vico I S.Rocco - 86093 Car¬ 
pinone (IS) 

Commodore 64 - nastro contenente trenta stupendi giochi con 

grafica coloratissima e impeccabile traduzione italiana cedo a 
Lit. 30000 contrassegno. Paolo Agostini - Via G. Pascoli, 5/B - 
35125 PD 

Per C64 offro Simons' BASIC a Lit. 20000. Un gioco a Lit. 10000 
(calcio, Fort Apocalipse, Pacman. Motor mania, Squish 'erri. 
Panie. Sea wolf). Inviare richiesta con relativo imporlo e casset¬ 
ta da registrare a: Sergio Di Nardo - Via Monte Velino. 15 - 
67100 AQ - Tel. 61633 

Cambio - compro - vendo programmi per Commodore 64 su 
cassetta e su disco tra i quali tantissimi giochi in linguaggio 
macchina e applicativi. Per richiesta di lista o per scambi di 
idee telefonare o scrivere. Pavin Branco - Via I. Boschi, 3 - 
25100 BS - Tel. 030/345924 

Vendo per Commodore 64 Calcio più Pool biliard più Fort 
Apocalipse più Ski race più Squish ’em cass più Jupiterlander 
più Crazy kong. Vendo anche Simons' BASIC completo di 
manuale a Lit. 40000' Scrivere o telefonare ore pasti. France¬ 
sco Punzo - Via Tufarelli. 18-80046 S Giorgio A Cremano (NA) 

- Tel. 7716827 _’_ 

Vendo eccezionali programmi in linguaggio macchina per VIC 

20. Inoltre vendo programmi per light pen Tutti a ottimi prezzi. 
Fiorindo Pailadino - Via Bovisasca. 161 - 20161 MI - Tel. 
9550858 

Cambio per CBM 64 giochi magnifici solo in L.M e solo su 
cassetta. Scrivete e mandate anche il vostro elenco. Christian 
Marini - V le Trieste. 7 - 39100 Belluno - Tel. 41301 

Per Commodore 64 e VIC 20 vendo a Lit. 40000 interfaccia 
sicura munita di telecomando remote per normali registratori 
con 3 jack. Cassette vergini per computer da 10 e/o 20 minuti. 
Lit. 1000 cad. Vittorio Verri - Via Dante 5/B - 20091 Bresso (MI) - 
Tel 6106357 

Vendo, cambio software per CBM 64. Inviare vostra lista, ri¬ 
spondo a tutti Pacman Lit 10000, Fort Apocalipse Lit. 15000, 
Shanus Lit. 10000 e tanti altri da Lit. 5000 a Lit. 20000, compresa 
cassetta escluse spedizioni. Giuseppe Erario - Via Pacelli, 13 - 
74024 Manduria (TA) - Tel. 099/671192 
Vendo programmi per Commodore 64, giochi e utilità tra cui: 
Simons' BASIC, Turbo tape. Hesmon e molti altri. L'annuncio è 
sempre valido. Carlo Piccolo - Via A. Poerio. 33 - 35100 PD - 
Tel 049/652813 

Vendo per C64 programmi originali Commodore. Tra i tanti: 
Simons' BASIC, Hesmon. Frogger, Slalom e circa altri cento. 
Lire 10000 l'uno e 30000 cinque. Scrivere a. Marco Baretella - 
Via Fiume. 33 - 35042 Este (PD) 

Cerco stampante Commodore 1520. Offro Simons’ BASIC cas¬ 
setta e manuale scambiando con utility programs. A qualunque 
costo compro integrato 6584 (SID) musica per CBM 64. Alberto 
locco - Via Ciccotti. 10 - 85100 PT - Tel. 0971 /20468 
Per VIC 20 vendo il miglior software tutto di ottima qualità. 
Stupendi giochi in LM, applicativi, grafici, simulazioni, ottime 
utility. Scrivete per ricevere la lista grauita. A presto. Fed & Tom 
Guerrieri - Via Ugo Foscolo, 14 - 50124 Firenze 

Vendo i migliori programmi per VIC 20. Anche molti LM con e 
senza espansioni. Prezzi irrisori. Oppure scambio con altri di 
pari valore. Telefonare o scrivere per avere il fornitissimo elen¬ 
co. Tommaso Guerrieri - Via Ugo Foscolo. 14 - 50124 Firenze - 
Tel. 055/700635 

Per Commodore 64 cambio/vendo programmi di ogni tipo 
(gestionali - utility - ingegneria - ecc.) e molti videogiochi (tutti i 
programmi sono forniti di manuale). Rispondo a tutti. Roberto 
Deroberlis - Via Giovanni XXIII, 107 - 70124 Bari - Tel 
080/366224 

Vendo VIC 20 più registratore a Lit. 150000; 3 Kbyte super ex 
più 8 Kbyte più 16 Kbyte più tris Iota Lit 150000; stampante 80 
colonne 60 CPS sigla MPS 801 della Commodore per VIC 20 o 
64 più 2000 fogli a Lit. 400000 Massimo Gaspari - Via Amarena. 
5/5A - 16143 Genova - Tel 010/875264 

La tua enciclopedia di formula 1 su cassetta per sapere tutto 
sulle macchine, piloti, gran premi con il tuo VIC 20. Vendo 
programmi di formula 1 su cassetta espansione 16 Kbyte. Scri¬ 
vere a : Sebastiano Caramagno - Via Contrada Cipollazzo - 
96011 Augusta (SR) - Tel. 0931/993369 

Vendo VIC 20 più registratore C2N più alimentatore più joystick 
special più cartuccia gioco più 50 liste più cassette software a 
quantità (giochi) tra cui Puckman, Galaxia, Othello, Slalom più 
giochi per il VIC (libro) a Ut. 550000. Andrea Zambelli - Via 
Alfieri. 11 - 41013 Castelfranco Emilia (MO) - Tel. 059/926690 
Vendo, cambio programmi per Commodore 64 - utility e anche 
giochi. Spedisco lista a chi invia busta affrancata oppure telefo¬ 
nare ore serali, dalle 19.30 alle 20.30. Franco Ferri - Via S. 
Lazzaro. 31 - 40068 S. Lazzaro di Savena (BO) Tel. 051 /461504 
Vendo o cambio giochi per li Commodore 64 solo Torino e 
dintorni. Chiedere di Angelo dalle ore 19. Giorni martedì - 
giovedì - venerdì. Angelo Tosti - Via G. Bove. 11 - 10129 Torino 

- Tel. 011/504994 


Vendo VIC 20 piu gioco su cartuccia Corp più joystick usato 
pochissimo più cavetti alimentazione manuale al prezzo di Lit. 
220000 Marco De Piccoli - Via Gioberti - 3Ì027Spresiano(TV) 

- Tel. 0422/865705 ore pasti 

Cerco a un prezzo ragionevole registratore Commodore C2N 
per il mio VIC 20 Cerco inoltre liste di programmi di ogni 
genere. Alfredo Mancini - Via Cardinal San Felice. 4 - 00167 
Roma - Tel. 06/ 6212482 

Cerco possessori C64 per vendere o cambiare 200 programmi. 

giochi, utility, gestionali, ecc. Angelo Settembrini - Via Cassa- 
nese. 124 - 20090 Segrate (MI) - Tel. 2136514 

Commodore 64 - vendo programma gestionale memorizza 
fatture ai fini IVA, stampa registro o corrispettivi, provvede alla 
liquidazione trimestrale, stampa l'elenco annuale clienti/forni¬ 
tori e dichiarazione annuale IVA Luciano 
Usuelli - Via Isonzo. 31 - 21100 Varese - Tel. 0332/242596 

Cambio, vendo programmi per Commodore 64 (oltre 300) a 
prezzi modici. Richiedere o inviare una lista a: Roberto Giovan¬ 
nini - Via Pistoia. 2A - 00182 Roma 

Vendo programmi totocalcio - totip integrati, semintegrati. ri¬ 
dotti per CBM 64. Rispondo a tutti Telefonare ore pasti. Rosetta 
Benfatto - Via Tasso, 12 - 36041 Alte Montecchio (VI) - Tel 

0444/796552 _ 

Cambio o vendo software per CBM 64 Alcuni anche in L/M. Se 
interessati scrivetemi, invierò lista a chi mi spedirà Lit. 500 in 
bolli Cerco inoltre Pet Speed su cassetta a nastro Offro max 
Lit. 30000 Antonio Petrelti - Via Marinosci. 14 - 73100 Lecce - 
Tel. 591196 

Compro, cambio, vendo programmi per CBM 64 Sono interes¬ 
sato (solo su disco e con istruzioni in italiano) a Tool 64. Master 
64 e Pet Speed. Inviatemi le vostre liste con relativo prezzo 
Giuseppe Bellofiore - Via Aurelia. 502 - 57012 Castiglioncello 

(U)_ 

Cambio, vendo per CBM 64 molte centinaia di programmi A 

chi mi invia la propria lista. Risponderò con la mia oppure 
allegate Lit 400 in francobolli per riceverla. Annuncio sempre 
valido Luigi Beviglia - Casella Postale 41 -21052 Busto Arsizio 
(VA)_ 

Vendo, cambio centinaia di programmi per C64 solo su disco 
Dispongo di moltissimi programmi con manuale in italiano 
Programmi professionali per Apple Augusto Proietti - Via Casi- 
lina. 522 - 00100 Roma - Tel. 06/270865 

Vendo per VIC 20 e CBM 64 i migliori programmi in LM o BASIC 
Vastissima scelta e prezzi convenienti Antonio Lium - Via 
Parco dei Principi, 50 - 70010 Casamassima (BA) 

Eccezionale! Vendo fantastici programmi VIC 2006 - 98100 
Messina - Tel. 772168 

Vendo sistema hardware per duplicare le cassette protette sul 
Commodore VIC 20 e 64 a Lit 100000. Il sistema è composto da 
un registratore + interfaccia Telefonare ore pasti Nicola Lavo- 
pa - Via Cardarelli, 22 - 70125 Bari - Tel. 080/472842 

Se avete qualche programma su cassette protette per C64 e 
vorreste farne un duplicato, io lo eseguo a Lit. 3000 Nel prezzo 
è compreso il costo della cassetta. Tratto solo con Bari. Telefo¬ 
nare ore pasti. Nicola Lavopa - Via Cardarelli. 22 - 70125 Bari - 
Tel. 080/472842 

Cambio, vendo programmi per Commodore 64 Ho circa 200 
titoli molto interessanti tra giochi, utility e altri. Scrivetemi in¬ 
viando 800 lire per liste. Rispondo a tutti. Fabrizio Arrigom - Via 
Sem Bendili, 2 - 20151 Milano - Tel 02/3083592 

Cambio e tratto programmi CBM 64 solo severamente impor¬ 
tanti e/o recenti Ne posseggo oltre 400 di tutti i tipi Rivolgersi a 
: Costantino Pierantomo - Via Einstein, 10 - 43100 Parma - Tel. 
0521/42619 

Vendo, cambio programmi per CBM 64 e VIC 20. Si ricerca 
materiale in italiano Vendo, cambio per Apple di qualsiasi 
genere. Acquisto programmi solo se interessanti. Mara Buccel- 
la - Via Monte Sirente - 66023 F.ancavilla al Mare (CH) - Tel 
085/62934 

Cambio software di qualsiasi genere su disco per CBM 64. Alla 
vostra lista risponderò con la mia. Maurizio Piraccini - V ie dei 
Pini. 8 - 47023 Cesena (FO) - Tel. 0547/26958 
Vendo libri BASIC in italiano, programmi di utilità che ti spiega¬ 
no come usare la grafica e come muovere caratteri e fantastici 
giochi. Tutte queste fantastiche cose solo per il CBM 64 Alber¬ 
to Salamò- Via V Errante. 16 90018 Termini Imerese 

Cambio, vendo software per C64, giochi e utility; sono interes¬ 
sato moltissimo a giochi e programmi di ingegneria. Andrea 
Angelucci - Via Giovanni XXIII, 47 - 06081 Assisi (PG) - Tel. 
075/816338 

Compro, vendo, cambio per CBM 64 software su nastro A chi 
acquista prezzi amichevoli. Rivolgersi a. Mario Merlim - Via 
Camelie. 13 - 20045 Cusano Milanmo (MI) - Tel. 6132923 

Per CBM 64 vendo programmi di utility e games Ne posseggo 
oltre 900. molti dei quali congelativi manuali in italiano. Scrivere 
o telefonare dopo le 20. Cesare Cantarmi - Via luigi Rava. 33 - 
00149 Roma - Tel. 06/5268675 

Cambio o vendo a prezzi simbolici software per CBM 64 Tele¬ 
fonare o scrivere inviando lista dettagliata a: Dino Degli Esposti 

- Via Nino Bixio. 67 - 60015 Falconara M (AN) - Tel. 913509 

Vendiamo e cambiamo software, libri e riviste per CBM 64 e ZX 
Spectrum. Scambiamo inoltre volentiei idee e consigli per neo¬ 
utenti. Contattateci vogliamo costituire un club Marco (& Ema¬ 
nuele) Lo Curzio - Via Setaioli, 15 - 98100 Messina - Tel 
090/53030 

Cambio/vendo programmi per CBM 64 Ho circa 800 program¬ 
mi. Rispondo a tutti.lnviate le vostre liste, sopratutto se avete 
programmi gestionali. 

Giancarlo Giuliani - Piazza Sacro Cuore. 26 - 65100 Pescara - 
Tel 085/26593 
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Cerco per Commodore 64 su cassetta o cartuccia simulatore di 
volo (non disco). Scrivere a: Fabrizio Terranova - Via S. Dome¬ 
nico Savio. 5 - 14022 Castelnuovo D B. (AT) 

Cambio software, giochi, Utilities per Commodore 64. Cerco 
solo Utilities vari (non videogiochi). Inviare lista: rispondo a tutti 
Fabio Bullo Via P Morari, 10 - 30015 Chioggia (VE) - 
Tel. 041/400908 

Vendo, cambio programmi per 64. Ho Superbase. OmniCalc, 
Last one, Music construction set, Pilot, LOGO. Jumpman, Soc¬ 
cer. Hobbit, Pinball set. Choplifter, Matrix, STAT64, 64 Doctor e 
tanti altri. Telefonare ore pasti 

Franco Silvestro - Pzza S. Martino. 9 - 40126 Bologna - 
Tel.051 /279791 051/227074 

Cambio o vendo 250 programmi per VIC 20. Scrivetemi, vi 
invierò il mio catalogo con relative spiegazioni. Carlo Vincenzi 
- Via della Resistenza. 26 - 41033 Concordia (MO) - Tel. 
0535/54325 

Vendo, cambio vasta gamma di programmi per CBM 64 preferi¬ 
bilmente su disco. Richiedere e inviare le liste Per chi mi 
volesse telefonare sono disponibile dalle ore 20 in poi. Carlo 
Panzen - Via Massena. 87 - 10128 Torino Tel. 011 /501555 

Cerco registratore a cassetta e/o espansione 16 Kbyte RAM 
per VIC 20. Telefonare ore pasti o scrivere a: Giulio Troccoli - 
Via Filiasi, 70 - 30174 
Mestre (VE) - Tel. 041/53136 

Cambio/vendo programmi per C64 e VIC 20. Utility e giochi; 
richiedete la lista inviando le vostre a: Martini Romano - Via 
Filelfo. 15 - 30173 Mestre (VE) - Tel. 041/989534 

Cambio/vendo programmi per CBM 64: Spriteman. Slalom, 
Turbotape, ecc. Posseggo inoltre programmi di utilità: ingegne¬ 
ria, master 64, magazzino, condominio e altri. Tutti con manua¬ 
le. Mandale liste e/o telefonate. Matteo Casaretti - Via Umbria, 
70-77 - 63039 S. Benedetto del Tronto (AP) - Tel. 0735/82343 

Cerco per 64 guida per il programmatore, Hesmon 64. Cerco 
nella zona di Ancona possessori di 64 per scambi di materiale. 
Telefonate lasciando il voostro numero. Giulio Vuolo - Via 
Torino. 3 - 62017 Portorecanati (MC) - Tel. 071/9798347 

Vendo per Commodore 64 stupendo programma di contabilità 
familiare su cassetta a Lit. 250000. Spedisco in contrassegno. 
Sabina Abate - Via Avigliana. 7/68 - 10138 Torino - Tel. 
011/759891 

Vendo programmi per VIC 20 (circa 300) a basso prezzo per 
versione base, 3KSE, 16 Kbyte. copie giochi da cartucce e 
compero plotter oppure floppy per VIC 20. Tel 02/9018210. 
Telefonare dopo le 19. Virginio Carettoni - Via Diaz. 5 - 20080 
Cisliano (MI) - Tel 9018210 

Vendo per PET/CBM package profetslonali: contabilità IVA; 
fatturazione; magazzino paghe; mg. Capurso - COREL - MCS - 
INFORAB - POR; VisiCalc 40/80; compilatore DTL; varie 
EPROM per un totale di 24 Kbyte ROM. Tutto altamente profes¬ 
sionale. Anna Mosciano - Strada 62, 28 - 67100 L'Aquila - Tel. 
0862/23273 

Cerco sistema operativo CP/M per Commodore 64 a buon 
prezzo, possibilmente su nastro. Cesare Ranieri - V le Aldo 
Moro, 9 - 88060 Marina S. Andrea Jonio (CZ) - Tel. 0967/45027 

Vendo per CBM 64 programmi testi In italiano Dispongo inoltre 
del Clone machine e Turbo disco. Marcello Cesi - Via Magliana 
Nuova. 178 se B int. 22 - 00146 Roma - Tel 06/5266009 

Cambio software per CBM 64. Inoltre lo vendo a prezzi imbatti¬ 
bili (es. Simon BASIC Lit. 18000) e ne compro di nuovo. Sono 
pure interessato a formare un 64 Club o ad entrare in un club 
già esistente. Maurizio Marano - Via Gozzadini, 6 - 40055 
Villanova di Castenaso (BO) 

Desidero cambiare qualsiasi cassetta-gioco per Commodore 
64 Telefonare ore pasti Claudio Pagano - Via Rho, 18 - 20125 
Milano - Tel. 02/686744 

Vuoi sapere tutto sui Bombers che nei campionati di A. B. C 
hanno fatto più di 100 goal? Il tuo VIC 20 li dirà nome, goal, 
campionato, serie, squadra. Vendo programmi sui Bombers 
italiani su cassetta. Sebastiano Caramagno - Contrada Cipol- 
lazzo - 96011 Augusta (SR) - Tel. 0931/993369 

Vendo software per CBM 64 e VIC 20 su nastro e su disco. 
Programmi di importazione e inediti. Schede hardware per 
gestione strumenti esterni. Grossi sconti per alti quantitativi. 
Richiedete il catalogo: centinaia di offerte. Enrico Meloni - Via 
G Rontgen. 19 - 20136 Milano - Tel. 02/8326381 


Per VIC 20 inespanso cambio/vendo software, giochi sopra¬ 
tutto. Vendo inoltre cassetta con 15 giochi a scelta all'incredibi- 
ke prezzo di Lit. 15000 Per richiedere lista e informazioni 
contattare: Diego Sammaritano - Corso Butera. 56 - 90011 
Bagheria (PA) - Tel. 637385 

Avete un CBM 64? Amate l'avventura? Volete scoprire cosa si 
cela nelle inesplorate profondità dello spazio? Allora Star Ex¬ 
plorer è il programma che fa per voi. Chiedere informazioni a: 
Stefano Zattini - Via C Sforza. 33 - 47100 Forlì 
Vendo per Commodore 64 Slmon's BASIC Aggiunge 114 nuo¬ 
vi comandi al BASIC del C64 (grafica, hardcopy). Lit. 30000 su 
cassetta. Lit. 35000 su disco più manuali. Telefonare ore serali. 
Paolo Zanon - Via F ili Bandiera. 112/A - 35175 Marghera (VE) 

- Tel. 041/927327 

PET/CBM 4032 più floppy 8050 più stampante Centronics 
779/132 colonne più fantastico programma contabilità gene¬ 
rale e semplificata più programma paghe vendo a soli 2500000 
(valore dei programmi). Ideale per consulenti. Regalo Word 
processing Giuliano Termanini - Via XX Settembre 21/916121 
Genova - Tel. 010/542196 

Vendo, compro, cambio programmi per Commodore 64. Pos¬ 
siedo Extended BASIC. Ultra BASIC 80, colonne, Koala pamter. 
Easy Script (word processor) più giochi: Manie minier. Sprit- 
man, Scrambler su disco. Mara Zortea - Via Mazzini. 21 - 36063 
Marostica (VI) - Tel. 0424/75506 

Vendesi software per VIC 20 e Commodore 64 ottimi prezzi, 
grande varietà. Telefonare o scrivere a: Ciro Pagliara - Via 
Bernini, 1 - 80055 Portici (NA) - Tel. 081/472669 081/752196 

Scambio programmi per CBM 64. Giochi più utilità, dispongo di 
circa 300 programmi e vari manuali in italiano per programmi di 
utilità; Easy Script, The last one, PET SPEED, Diary 64 Vincen¬ 
zo Acciaio - Corso V. Emanuele. 252 - 80058 Torre Annuziata 
(NA) - Tel 8611398 

Vendo per Commodore 64: Calcio 3d, Shamus. Gridrunner. 
Fort Apocalypse, Crazy Kong a Lit. 15000 cadauno; Simon 
BASIC a Lit. 20000. A chi ne prenderà 2, uno in omaggio. Tratto 
solo con Bari. Telefonare ore pasti. Nicola Lavopa - Via Carda¬ 
rello. 22 - 70125 Bari - tei 080/472842 

Vendo a prezzi eccezionali programmi per CBM 64 In parico- 
lare dispongo di ottimi programmi gestionali e utility. Rispondo 
a tutti. Anna Bisogno - Via Lombardi. 168 - 84083 Castel S. 
Giorgio (SA) 

Vendo, cambio programmi per VIC 20. Ne ho circa 150. molti in 
LM. Rispondo a tutti. Possiedo programma per l'uso del secon¬ 
do joystick per il VIC 20. istruzioni dettagliate, nessun bisogno 
di hardware. Sabino Loprete - Via Tukory, 9 - 40141 Bologna - 
Tel. 051/474305 

Compro software LM per VIC 20 inespanso su listato o su 
cassetta a prezzi modici. Telefonare ore pasti. Mario Ercolino - 
Via S. Teresa, 5 - 71013 S. Giovanni Rotondo (FG) - Tel. 
0882/856051 

Cambio, compro programmi per CBM 64. Cerco disperatamen¬ 
te: Pharaoh's curse, Blue max. Necromancer. Buck Rogers 
diskey Paolo Carlini - Via Treviso. 4 - 01100 Viterbo - Tel. 
0761/35774 

Vendo VIC 20 piu regisiratore ded. più espansione 16 Kbyte 
RAM più super expander più 2 cartridgegioco più 2 joystick più 
manuale più libro “Alla scoperta del VIC 20“ più altro materiale. 
Tutto a Lit. 400000-500000 trattabili. Sei mesi di vita. Marco 
Bolazzi - Via Venezia, 1 - 28100 Novara - 
Tel. 0321/459015 

Cerco, compro programmi per Commodore 64 (sia cassette 
che listati), specialmente videogiochi di tutti i generi Allegare la 
lista con relativi prezzi Milko Scaglia - Via Badia. 74 - 25100 
Brescia - tei. 030/316871 

Baratto software per VIC 20 di ogni genere (giochi, utility, stati¬ 
stici, in LM o con 48 Kbyte). Ne ho circa 100. Cerco inoltre 
Trislot a basso prezzo. Acquisto derivati di cartucce a Lit. 3000 
l'una. come Adventure Land, The counter ed altri. Dino De Patre 

- Via Cerrano. 12 - 65016 Montesilvano (PE) - Tel. 085/830681 
Vendo per VIC 20 cartuccia Golf, Roadrace, Radar/Ratrace a 
Lit. 25000 cadauna. Tutte tre a Lit. 60000. Franco Zanardi - Via 
Vicolo Rensi, 4 - 37121 Verona - Tel. 045/23692 (ore ufficio) 

Vendo VIC 20 più registratore più joystick più cassetta con 
bellissimi giochi e un programma inedito tutto in perfette condi¬ 
zioni a solo Lit. 350000. Per informazioni telefonare dopo le 17 o 
scrivere. Rocco Silano - V ie Lombardia. 13 - 85029 Venosa 
(PZ) - Tel. 0972/32381 

Cambio programmi per C64 (preferibilmente su disco). Pos¬ 
seggo più di 100 programmi. Cerco manuale per "Last one" e 
"PET speed" solo in italiano. Cerco anche simulatore di volo 
americano. Gabriele Giordano - Via Perecca, 11 - 81055 S. 
Maria C.V.(CE) - Tel. 84467 

Acquisto, cambio, vendo programmi e giochi per Commodore 
64. Telefonare dopo le 20 o scrivere a: Elio Pisanelli - Via 
Gramsci. 11 - 04023 Formia (LT) - Tel. 0771/22924 

Cambio, vendo software per Commodore 64 Per le liste scrive¬ 
re o telefonare a: Fausto Berutti - Via S. Fruttuoso. 10/13 - 
16100 Genova - Tel. 010/502651 

Club utenti Commodore cambia software di qualità. Disponibili 
centinaia di titoli e documentazione. Inviate la vostra lista: ri¬ 
spondiamo a tutti. I.S.E (Rif. L) - C.P. 21 - 57100 Livorno 

Cambio/vendo software per CBM 64 e ZX Spectrum, Simon's 
BASIC per CBM 64 con manuale. Toolkit per ZX Spectrum e 
tanti altri. Scrivere o telefonare. Giovanni Palombo - Via Leu- 
ciana. 41 - 03037 Pontecorvo (FR) - Tel. 0776/743089 


Vendo per CBM 64 programmi di ogni tipo. Sintetizzatore vo¬ 
cale controllabile da BASIC, su cassetta o disco, con istruzioni 
solo Lit. 30000 tutto compreso. Telefonate, farete prima. Carlo 
Borreo - Via G. Berio. 34 - 18100 Imperia - Tel. 0183/21833 


Vendo, cambio programmi per CBM 64 su disco (circa 500 
della migliore qualità) giochi, utility, gestionali. Scrivere o tele¬ 
fonare a: Bolle Giovanni Via Virle. 22 - 10138 Torino - Tel. 
011/4471553 

Cerco programmi per VIC 20 inespanso Graditissimi listati di 
qualsiasi genere anche in LM. Riccardo D'Auria - Via Posillipo, 
203 - 80123 Napoli - Tel 081/7694737 

Vendo VIC 20 più super expander più 16 Kbyte RAM più gioco 
Alien su cartridge più joystick più driver VC1540 più program¬ 
ma Assembler, Pilot più vari libri e vari programmi. Giuseppe 
Marcarini - Via Buozzi. 89 - 29100 Piacenza - Tel. 0523/73441 
Cambio, vendo software per Commodore 64: se interessati 
scrivere o telefonare dopo le 20: Maurizio Lattuada - Via Paniz- 
zi, 13 - 20146 Milano - Tel. 02/427890 

Vendo software per CBM 64 per gli istituti tecnici commerciali 
(statistica - ragioneria ecc) giochi (Kong - Othello - Roulette - 
ecc) backup singolo disco ( 1541) tutti a prezzi favolosi. Elaboro 
programmi a richiesta. Telefonare ore pasti. Paolo Rondelli - 
Via Gramsci, 4 - 18039 Ventimiglia (IM) Tel 0183/355717 

Cercasi solo se in buone condizioni ed a prezzo vantaggioso 
floppy disk 1541 per CBM 64. Fulvio Roggero - Piazza Monta¬ 
nari, 133 - 10137 Torino - Tel. 011/399673 

Cambio, vendo programmi per CBM 64! Attenzione offerta 
‘Magic desk" a sole Lit. 40000! Spese a mio carico. Prenotatevi 
subito scrivendo o telefonando a Presti Giovanni - Via Ken- 
nedy, 232 - 98050 Barcellona (ME) - Tel. 090/9722448 

Per Commodore 64 cambio i seguenti programmi: Magic desk 

- Koala painter - Turbotape - Equo canone - 80 colonne - 
Pascal - Disk copy - Simon's BASIC - Disk backup - Videoga- 
mes - Totosistemi - ed altri. Scrivere a: Gaspare Guadagnino - 
Via Errante. 62 - 90127 Palermo 

Per Commodore 64 cambio programmi di vario genere. Regalo 
un videogame a tutti coloro che mi inviano la lista. Per poter 
effettuare gli scambi (supporto: disco) scrivete a : Rino Guada¬ 
gnino - Via De Gasperi. 28 - 92024 Canicatti (AG) 

Grand prix e Space Invàderà, due eccezionali videogame per il 
VIC 20 al modico prezzo di Lit. 12000. comprese le spese del 
nastro e di spedizione. Richiederli scrivendo o telefonando a. 
Vincenzo Musicò - Via Paolo Blandino, 12 - 98100 Messina - 
Tel. 090/2938626_ 

Per PET/CBM 40/8032: finalmente è data la possibilità a tutti di 
compilare i propri programmi con il famoso DTL-compller 
aumento delia velocità anche del 70%. Vendo con manuale 
italiano più chiave a Lit. 150000. Anna Mosciano - Via Strada 
62. 28 - 67100 L'Aquila - Tel. 0862/23273_ 

Ho oltre 200 programmi per C64. A chi mi invierà una cassetta 
con programmi di buona qualità invierò una mia cassetta con 
più programmi, tutti ottimi e moltissimi in LM. Comunicate le 
preferenze. Emanuele Ungheri - Via S. Giuliano. 86 - S. Agata Li 
Batiiati (CT) - Tel. 212517 _ 

Vendo VIC 20 più registratore C2N più S. ext più 3 giochi su 
cartuccia (Ratrace, Roadrace. Jupiter lander) più 2 libri (un'in¬ 
troduzione al BASIC - 1 e 2) più alimentatore più cavetti e molti 
giochi. Lit. 500000 (4 mesi di vita). Simone Marchese - Via Sai. 
D. Morchio, 1/22a - 16162 Bolzaneto (GE) - Tel. 010/407678 

Vendo, cambio programmi per VIC 20. Mandatemi le vostre 
! liste o telefonatemi, risponderò a tutti posseggo giochi tipo 
Bonzo. O beri, skramble ed altri. Michele Turiello - Via Fiordali¬ 
si, 1 - 20146 Milano - Tel. 02/4225282 

Per C64 vendo numerosi programmi tra cui Last one, Pel spe¬ 
ed. Simon's zoom. Easy Script, BASIC 40. STAT 64 e tanti altri 
(tra cui ecc. giochi). Disposto a scambi interessanti. Telefonate 
Angelo Longarato - Via Valsesia. 50 20100 Milano - Tel. 
02/4596062 ___ 

Cerco gioco scacchi su cassetta per Commodore 64 a prezzo 
ragionevole possibilmente in zona Catania e provincia. Scrive¬ 
te oppure telefonate ore pasti. Franco Rizzo - Via Avogadro, 28 

- 9512 Catania - Tel. 095/475629 

Cambio programmi per CBM 64, ne ho più di 200. tra i quali 
bellissimi giochi (Pole position, super pipeline) e interessanti 
utility, se interessati scrivere o telefonare dopo le ore 20 a. John 
Ceresi - Via Mazzini - 18016 S. Bartolomeo al Mare - Tel. 
0183/400030_ 

Vendo VtC 20 più registratore C2N più 2 cartucce "Draw poker" 
e “Radar rat race" più joystick "Quick shot spectravideo" più 
libri: “30 giochi per il vostro VIC 20" più "Alla scoperta del VIC 
20" più "Impariamo a programmare in BASIC con VIC - CBM”. 
Tre mesi di vita. Imballaggio nuovo, in garanzia, tutto a Lit. 
450000 anziché Lit. 643000, per passaggio a sistema superiore. 
Christian De Grandis - Via Scarabello. 31 - 35042 Este (PD) - 
Tel. 0429/4147 

Scambio programmi (giochi, utility, grafica) per CBM 64. Cerco 
il programma "Character generator". Scrivete inviando la vo¬ 
stra lista. Rispondo a tutti. Massimiliano Turci - Via Serraglio. 23 

- 47023 Cesena (FO) 

Cambio, compro, vendo programmi per Commodore 64. Ri¬ 
spondo a tutti, assicuro massima serietà. Inviate vostre liste a: 
Marcellino Giuseppe - Via XX Settembre, 23 - 21052 Busto 
Arsizio - Tel. 632686 

Vendesi 300 giochi quasi tutti in LM per Commodore VIC 20. Il 
tutto a Lit. 80000 comprese spese di spedizione. Valore Lit. 
300000. Alessandro Natali - V ie Abruzzi, 28 - 20131 Milano - 
Tel. 02/2213636_ 

Vendo per CBM 64 cartucce originali americane Centipede - 
Pacman - Konkey Kong. Vendo anche moltissimi giochi e Utili¬ 
ties come Last one - Petspeed - Easy script. Cogliati Angelo - 
Via Valsesia. 50 - 20100 Milano - Tel. 02/4596062 

Vendo/cambio per C64 e Apple II giochi e utility, per C64 sia su 
dischi che su cassetta. Rispondo a chi invia liste. Serietà per 
favore! Alfonso Torre - Via Salvatore di Giacomo, 15 - 80053 
Castellamare di Stabia (NA) 
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Vendo listati per VIC 20 inespanso dei seguenti giochi: Il follet¬ 
to, Slalom, Maratona, Flotta spaziale. L’orologio, a Lit. 2500 
cadauno. Per informazioni scrivere o telefonare. Cristiano Vu- 
chich - Via Cascinette, 1 - 10015 Ivrea (TO) - Tel. 0125/47881 

Vendo, cambio programmi per CBM 64 solo listati o su casset¬ 
ta Rispondo a tutti. Davide Garotti - Via Benedetto Croce. 8 - 
07046 Porto Torres (SS) - Tel. 079/514Q19 _ 

Vendo VIC 20 più registratore più 16 Kbyte più 3 Kbyte S E. più 5 
cartridges di giochi Commodore più vari libri e riviste a Lit. 
56000(30% di sconto) in blocco o singolarmente. Francesco Di 
Gesù - Via Giotto. 43 - 81100 Caserta - Tel. 0823/441634 
Compro, cambio e vendo programmi per CBM 64 con tutta 
Italia. Posseggo una discreta biblioteca di software in espan¬ 
sione. Alfonso Capasso - Vìa Campitelli, 20 - 80055 Portici (NA) 
- Tel. 081/7751316 _ 

Cerco programmi dimostrativi per VIC 20 meglio se sulla grafi¬ 
ca A.R. e/o manuali e libri per VIC 20. Il tutto ad un prezzo 
accessibile e inoltre comprerei piccola stampante Scrivere a: 
Paolo Divano - Via Acquedotto Romano, 5 - 15050 Castellar 
Ponzano (AL) - 

CBM user vende/cambia su cassetta giochi, Utilities e tre 
programmi per lo sviluppo dei sistemi per il totocalcio. Scrivere 
a: Donatella Grasso - Via Grande, 12 - 73100 Lecce - Tel. 
0832/35179 _ 

Vendo per Commodore 64 numerosi giochi e utility. Prezzi 
stracciatissimi! Richiedere lista o telefonare a Mambetli Flavio - 
Via Valmarana. 68 - 0013 Roma - Tel. 06/8122497 

Vendo VIC 20 più Datacassette più 45 programmi tra cui Space 
Invaders e Briscola più cartridges "Star Battle" al prezzo incre¬ 
dibile di Lit. 245000. Scrivere o telefonare ore pomeridiane. 
Carmine Robert Lamura - Via Mazzini, 57 bis - 80045 Pompei 
(NA) - Tel. 081/8638595 

Attenzione! Vendo ai possessori del CBM 64 II favoloso sinte¬ 
tizzatore vocale per far parlare il vostro computer. Il programma 
è in LM e ve lo offro su cassetta in duplice copia per Lit. 50000. 
Alessandro Tavella - Via Maria Malibran, 19 - 00167 Roma - 
Tel. 06/6215200 

Cambio giochi per VIC 20 inespanso. Mandate la vostra lista ed 
io vi manderò la mia. Vorrei corrispondere con ragazzi /e pos¬ 
sessori di VIC 20 per futuro club Scrivere o telefonare dopo le 
19. Giambattista. 212 - 97015 Modica (RG) - Tel 0932/943359 

Per CBM 64 vendo/cambio programma In LM Dispongo inol¬ 
tre di "Simon's BASIC". Cerco programma "Turbotape" Inviare 
lista o telefonare. Domenico Cucuracchi - Via F. Paletta. 20 - 
10155 Torino - Tel. 011/265057 

Attenzione! Vendo il favoloso “Turbo Tape” per CBM 64. che vi 
permetterà di salvare e caricare i programmi in un tempo spa¬ 
ventosamente breve (10 volte più veloce). Su cassetta a Lit. 
25000 Alessandro Tavella - Via Maria Malibran. 19 - 00167 
Roma - Tel. 6215200 

Vendo In blocco dieci favolosi video games per Commodore 
CBM 64: Soccer (calcio), Squish'em. Quasar. Biliardo. Jawbre- 
aker. Unch Back, Forth Apocalypse. Pipeline. Pole position. Il 
tutto per Lit. 50000 più eventuali spese di spedizione. Rosalba 
Balducci - Via Baccarani, 7 - 60100 Ancona - Tel. 071 /55089 

Vendo cartridge Commodore Speech Syntheslser (sintesi vo¬ 
cale) per VIC 20 a Lit. 165000 (pagata Lit. 200000) praticamente 
nuova. Antonio Riccardelli - Via Osoppo, 5-01100 Viterbo - 
Tel. 0761/224410 

Vendo programmi per CBM 64: Pet speed - The last one - Viza 
writer 64 - giochi ecc. Compro manuali inerenti i programmi del 
CBM 64. A richiesta invio listino gratuito, G. Carlo Grassi - Via 
Vasto. 81 - 46044 Goito (MN) - Tel. 0376/607239 

Vendo VIC 20 più registratore C2N più 2 cassette con giochi più 
2 libri di BASIC a Lit. 380000 eventualmente trattabili pochissi¬ 
mo. Il VIC è come nuovo (2 mesi di vita). Telefonare o scrivere 
anche solo per informazioni. Gerardo Ventura - Via Regina 
Elena, 82 - 65100 Pescara - Tel 085/23374 

Cerco qualsiasi tipo di programma per Commodore 64. Inviare 
liste con eventuali prezzi. Sono disposto anche a scambiare 
miei eventuali programmi. Francesco Dignitoso - Via De Ga- 
speri. 93 - 88018 Vibo Valentia (CZ) - Tel. 0963/45431 

Vendo software per VIC 20 su cassetta o in listato. Dispongo di 
stupendi giochi come: Bonzo/Amok/Frogger/Asteroids/Pac 
man/Gridrunner/Abductor/Scacchi/Defender e altri pro¬ 
grammi d’utilità. Chiedere liste. Massimo Gusso - Via Felissent. 
32 31020 Lancenigo (TV) - Tel 62969 


Vendo, cambio per Commodore 64 e VIC 20 1 migliori program¬ 
mi In LM su disco o cassetta a prezzi irrisori. Richiedere liste 
gratuite specificando per quale computer. Antonio Liuni - Par¬ 
co dei principi, 50 - 70010 Casamassima (BA) 

Cerco In Puglia possessori VIC 20 CBM 64 per scambio espe¬ 
rienze e software. Scrivere a: Antonio Colazzo - Vian Gioberti. 
38 - 73022 Corigliano d’Otranto (LE) - Tel 0836/329082 

Cambio programmi per CBM 64 di qualsiasi genere, sia su 
cassetta che listati, inviatemi al lista e i vostri programmi e io vi 
manderò la mia. Cerco amici per fondare CBM 64 Club per 
scambio software. Luca Caletti - Via Mercadante. 74/A - 10154 
Torino - Tel. 011/277904 

Vendo, cambio centinaia di programmi per Commodore 64. Ho 
di tutto: linguaggi, videogames. compilatori, gestionali. Utilities 
varie, ecc. Scrivere o telefonare (ore 14-15) solo se seriamente 
intenzionati. Paolo Vergoni - Via Appia. 69 - 06100 Perugia - 
Tel. 075/66918 

A tutti gli intenditori del C64. ho il “Clone Machine", chi fosse 
interessato per l'acquisto lo vendo Lit. 100000. Il Clone è spro¬ 
tetto. Telefonare ore pasti. Roberto Oselladore - Via Passo San 
Boldo, 35/2 - 30030 Favaro Veneto (VE) - Tel. 631106 

Inviatemi la vostra lista dei programmi per il 64; sono in posses¬ 
so di 400 programmi, nei tuoi ne manca di sicuro qualcuno. 
Risponderò a tutti. Roberto Oselladore - Via Passo S. Boldo, 35 
int. 2 - 30030 Favaro Veneto (VE) - Tel. 041 /631106 (ore pasti) 

Per CBM 64 offro cartucce "Radar ratrace" e "Solar System" 
in cambio di Simon's BASIC e/o Screen Graphics 64 (cartucce 
o cassette). Telefonare ore serali. Fiorenzo Carullo - Via C. del 
Balzo. 59 - 83100 Avellino - Tel. 0825/23859 
Vendo per C64 programmi su disco (giochi e utility) a Lit. 20000 
(programma più disco). Per informazioni telefonareore 10-12 e 
14-17. Italo Moschini - Via M. San Vicino. 16 - 60126 Ancona - 
Tel. 071 /82809 

Offro per VIC 20 cassetta giochi contenente: Arcadia (LM). 
Betwiched (LM), Blitz più Torre di Brahma più Hangman piu 
Attacco medioevale più altri giochi sempre per VIC base Tele¬ 
fonare per informazioni. Gerardo Ventura - Via Regina Elena. 
82 - 65100 Pescara - Tel. 085/23374 

Scambio programmi per Commodore 64, giochi, grafica. As¬ 
sembler ecc. Solo su cassetta, masima serietà. Roberto Gatti - 
Via Aquila. 25 - 30020 Bibione (VE) - Tel. 0431 /430275 

Compro per VIC 20 espansione di memoria a 8 Kbyte RAM ed 
un joistick. Tufo in ottime condizioni. Compro solo a prezzi 
moderati. Telefonare ore pasti. Marco Miglietta - Via S. France¬ 
sco D’Assisi. 9/6 - 17100 Savona - Tel. 019/386752 

Compro, vendo e cambio programmi originali in LM americani 
ed inglesi. Possiedo circa 100 programmi tra videogames e 
utility. Contatterei inoltre altri possessori del 64 per scambi di 
idee. Carmelo Cutuli - Corso Italia. 60/A - 95014 Giarre CT) - 
Tel. 095/933369 _ 

Scambio software per Commodore 64 di ogni genere. Cerco 
altri possessori nelle zone di Ascoli Piceno. Macerata. Pesaro e 
Ancona per creare un club (rispondo a tutti). Leoni Stefano - Via 
Savona, 25 - 63018 Porto S. Elpidio (AP) - Tel. 0734/995671 

Per Commodore 64 vendo magnifici videogiochi tipo Arcade - 
Avventura e Simulazione. Per informazioni richiedere catalogo 
gratis. Ho a disposizione oltre lOOgiochi per tutti i gusti. Telefo¬ 
nare ore pasti. Bruno Sorrentino - Via Leopardi. 49 - 39012 
Merano - Tel. 0473/32272 

Vendo, cambio, compro per VIC 20 ottimi programmi in BASIC 
e LM memoria base. I prezzi sono ottimi, mandatemi vostre liste 
e vi manderò le mie. Rispondo a tutti. Massima serietà. Stefano 
Catelami - Via Tresana. 10 - 54036 Marina di Carrara 


Vendo Commodore VIC 20 più registratore Commodore C2N 
più Speed Bingo (su cartuccia) più20 giochi su cassetta e 
qualche Utilities più 2 manuali, ancora in garanzia, un mese di 
vita con relativi imballaggi a Lit. 330000. Telefonare ore pasti a: 
Fabrizio La Rosa - Via Chiesa dei Marmai. 12-98100 Messina - 
Tel. 090/40637 

Vendo, cambio, compro programmi per Commodore 64. Emilio 
Di Lello - Via Giotto. 3 - 64026 Roseto D’Abruzzo (TE) - Tel. 
085/8992146 

Possedere un VIC 20 è bello! Ma ancor più bello è far parte 
dell'Eden Software Club, il club numero uno per gli utenti di 
questo personal! Scrivici, riceverai un interessante bollettino 
omaggio! Rinaldo Denti - Via BeMiane. 4 - 10025 Pino Torinese 
(TO) 


Commodore 64: cerco software di termotecnica e di Idraulica. 
Cerco inoltre software e convertitore per RTTY (solo ricezione). 
Scambio giochi e Utilities. Dino Fornaciari - Villaggio Dante. 30 
- 52100 Arezzo - Tel. 0575/351451 

Compro, vendo, cambio programmi di ogni genere per VIC 20 e 
Commodore 64. Rispondo a tutti. Cercoespansione 8/16 Kbyte 
per VIC e floppy. Giulio Ravagni - Corso Rosmini. 63A - 38068 
Rovereto (TN) 

A Padova si è costituito un club per I possessori del VIC 20 
Cerchiamo soci; abbiamo giochi inediti da scambiare. Telefo¬ 
nare ore pasti. Emiliano Sagnotti - Via Bergamo. 12 - 35100 
Padova - Tel.049/631820 

VIC 20 - favolosi programmi oftresi. Scrivete. Andrea Bartolini - 
V.le A. Volta. 106 - 50131 Firenze - Tel. 055/575224 

Vendo, cambio per VIC 20 molti (più di 400) programmi su 
cassetta anche in LM o espansi. Posseggo anche copie di 
cartridge. Richiedere liste gratuite. Antonio Liuni - Via Parco 
dei Principi, 50 - 70010 Casamassima (BA) 

Compro software per PET/CBM 3032 new ROM Cerco anche 
single/dual drive floppy (2031 - 3040 o equivalenti), scheda 
grafica VC-32. Inviare liste e offerte a Monti Franco - Via 
Dorese. 67 - 48100 Ravenna 


Cerco utenti CBM 64 per scambio programmi e formazione 
gruppo per acquisti programmi in comune. Vendo gioco "Mi¬ 
niere Planetarie" in italiano, Lit. 20000 in-contrassegno. Amir 
Baldissera - Via Cimarosa, 68 - 30030 Robegano (VE) 

Compro listati di giochi per Commooore 64. Mandare lista con 
prezzi a. Stefano Toscamni - Via Pinetti, 18/17 - 16144 Genova 

- Tel 010/822554 

Cambio software per VIC 20 solo su cassetta. Inviatemi le 
vostre liste, risponderò a tutti. Massima serietà. Giulio Salerno - 
Via Armando Diaz, 6/B - 39100 Bolzano - Tel. 0471/45492 

Cerco qualsiasi tipo di programma per CBM 64. Inviare liste 
con evetuali prezzi. Sono disposto anche a scambiare i miei 
programmi. Massimiliano Montagna 

Via Abate Desiderio. 86 - 80144 Napoli - Tel. 081 /7386794 

Vendo, cambio programmi per Commodore 64 su cassetta. (Lit. 
5000). Scrivere o telefonare dalle 15 alle 20 Maurizio Fabbroni - 
Via Bassano, 13 - 34170 Gorizia - Tel. 82818 

Vendo programmi di storia su cassetta per VIC 20 per studenti 
di 1-2-3 media (A domanda rispondi con il tuo VIC). Per infor¬ 
mazioni scrivere a: Sebastiano Caracnagno - Contrada Cipol- 
lazzo - 96011 Augusta (SR) - Tel. 0931Z993369 

Per Vie 20 cambio/vendo oltre 400 programmi (gestionali, 
giochi, utility) su cassetta o su listati. Scrivere inviando lista a: 
Carlo Cocciazucca - Via Montesecco, 15 - 65010 Spoltore - 
TEI 085/207466 

Utenti CBM 64! Compro qualunque tipo di programmi, libri, 
specialmente ciò che riguarda la programmazione in Assem¬ 
bler (linguaggio macchina) Cerco anche procedureper copia¬ 
re cassetta-cassetta. Leonardo Lombardi - Largo Banti, 4 - 
50018 Scandicci (FI) - TEI. 055/256640 

Cambio con qualsiasi cartuccia per il CBM 64 una cassetta con 
sei bellissimi giochi (Frogger - Crazy kong - Q bert - Scramble - 
Qix - Squish'èm) oppure vendo per 3000 lire la stessa cassetta. 
Carmelo Cutuli - Corso Italia. 60 - 95014 Giarre (CT) - Tel. 
095/933369 

Cerco listati di ogni genere per Commodore 64 Scrivere o 
telefonare. A chi mi spedirà elenchi assicuro rimborso spese. 
Gianni Connio - Via S. Giovanni di Quarto. 1/15- 16148 Geno¬ 
va - Tel. 010/394215 

Cambio/compro software per Commodore 64 Inviare lista e 
condizioni acquisto. Spedirò subito la mia lista Annuncio sem¬ 
pre valido. Vincenzo De Lillo - Via Assunta, 7 - 75019 Tricarico 
(MT) - Tel 0835/723362 

Commodore 64 cambio, vendo, compro programmi dt ogni 
tipo su disco o su nastro. Inviare lista. Rispondo a tutti. Telefo¬ 
nare ore pasti. Gilberto Frioli - Via Mazzini, 32 - 60035 Jesi (AN) 

- Tel. 0731/541792 


Cambio, compro, vendo programmi per VIC 20 Massima serie¬ 
tà. Antongiulio Pisani. Via Posillipo. 69/9 - 80123 (NA) - Tel. 
081/7695397 

Cerco possessori di VIC 20 per scambio di idee e programmi. 
Telefonare o scrivere a: Andrea Meroi - Via Mignone. 11 - 
52100 Arezzo - Tel. 0575/29091 

Vendo/cambio programmi per VIC 20 in LM e in BASIC tra i 
quali Blitz. Cross Fire. Scramble ed altri. Prezzi stracciatissimi! 
Telefonare pomeriggio o scrivere a: Sebastiano Suraci - Via 
Pallanza, 8/4 - 33100 Udine - Tel, 0432/45274 

Attenzione! Avviso per tutti i possessori di C64. Offerta eccezio¬ 
nale per tutti, cambio giochi e software generale (musica, utility, 
ecc.) Scrivete o telefonate, non ve ne pentirete! Paolo Gai - P.za 
Basilicata, 4 - 10137 Torino - Tel. 011/305887 

Cambio/vendo software per Commodore 64 Giochi tutti in 
linguaggio macchina, risposta sollecita a tutti. Per chiarimenti 
telefonare o scrivere a: Alessandro Palma - Via Longo, 50 - 
80127 Napoli - Tel. 081 /656305 

CBM 64 giochi, utility, gestionali vendiamo/cambiamo pro¬ 
grammi su disco o cassetta con manuali di istruzioni (molti in 
italiano). Scrivete ed inviateci la vostra lista Rispondiamo a 
tutti. Microsoft - Casella Postale 377 - 60035 Jesi (AN) 

Cambio, vendo programmi originali per Commodore 64 (oltre 
500) per Spectrum (oltre 600) e per Apple Vendo interfaccia 
programmabile per Spectrum semplicemente colpendo il joy¬ 
stick. Maurizio Carola - Via Lilio, 109 - 00143 Roma - Tel 
06/5917363 

Vendo VIC 20 più registratore dedicato più joystick professio¬ 
nale più 220 programmi su cassetta più numerosi listati più tre 
libri a Lit 360000 (un mese di vita). Telefonare ore ufficio allo 
0331 /799549 ore serali allo 0331 /310987. Massimo Toso - Via 
Prealpi, 23 - 21050 Peveranza di Cairate (VA) 

Vendo per CBM 64 "The last one", Pet speed. Pet emulator. 
Condomio. word processing, grafica per stampante, Simon's 
BASIC. Hesmon, Data Base, RTTY, Morse, Lezioni BASIC, Le¬ 
zioni CW e tanti giochi originali. Augusto Bernardini - Via Valle 
Verde, 5 - 05100 Terni - Tel. 0744/56870 
Cambio e vendo programmi per C8M64 (estensioni, utilità, 
games, W P .ecc ). - Gianni Bonfadio. 38/23 - 16154 Genova - 
Tel. 675278 


Per Commodore 64. Spectrum, cedo centinaia di Utilities e 
giochi. Studio di packages gestionali personalizzati (es. The 
last one per C64 Lit 120000) Aldo Dessi - Via Mazzini. 110- 
09036 Guspini (CA) - Tel 070/971565 

Cerco programma grafico per VIC 1515 per listare prezzi. Inol¬ 
tre programmi dimostrativi sempre per VIC 1515 e sopratutto 
per VtC 1541. Inviare condizioni Grazie Sesto Pederzani - Via 
Matteotti, 3/A - 20094 Corsico (MI) - 

Vendo, cambio programmi per Commodore 64, software, utility 
e giochi bellissimi su cassetta e/o disco. A richiesta invio 
catalogo gratuitamente. Mauro Coppola - Via Avicenna. 19/16 
- 00146 Roma - Tel 06/5573309 
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Commodore CBM 64: cambio, vendo, compro programmi di 
ogni tipo su disco o nastro. Inviare lista. Rispondo a tutti. Telefo¬ 
nare dopo le ore 18 Daniele Garzi - Via Moretti, 7 - 60035 lesi 
(AN) - Tel. 0731/3932 

Cambio, vendo programmi di vario tipo per VIC 20. Massima 
serietà, contattatemi. Marco Ceruti - Via Frassmago. 59 - 40132 
Bologna - Tel. 051/585389 

Compro, cambio software di ogni genere per Commodore 64. 
Inviare liste e proposte a: Claudio Manfredi - Via Grieco. 19 - 
71100 Foggia 

Svendo, causa avvenuto passaggio a CBM 64. 210 programmi 
per il VIC 20. utility, matematica, giochi tra cui molti in L.M 
(Bonzo. Alien. Boss. Traxx, ecc.) Svendo a Lit. 32000 compresi 
nastri magnetici e spedizione contrassegno. Renato Donatelli, 
5 - 05100 Terni - Tel. 0744/418277 

Scambio programmi VIC 20 versione base oppure vendo cas¬ 
setta con 20 giochi bellissimi a Ut. 30000. molti dei quali origi¬ 
nali americani. Rispondo a tutti. Telefonare solo il sabato oppu¬ 
re scrivere. Sabino Loprete - Via Tukory, 9 - 40141 Bologna - 
Tel. 051 /474305 

Scambio software su cassetta o su disco per CBM 64 Inviatemi 
le vostre liste anche se non avete molti programmi: risponderò 
a tutti. Piero Bergonzim - Via Podgora, 19 - 4l013Castelfranco 
Emilia (MO) - Tel 059/926001 

Vendo, cambio, compro programmi per CBM 64 di ogni tipo. 
Posseggo oltre 200 programmi (giochi, utility, compilatori ecc. ) 
(es: FORTH, Pascal; Last one; PET speed; gestionali; Data 
Base) Paolo Ghidmi - Via Montesuello - 25065 Lumezzane 

(BS) - Tel 030/827885 _______ 

Vendo per Commodore 64 i giochi: Radar ratrace, Frog master. 
Atlantic city. Ho ver bovver. Egbert, Cuddly cuburt. Attack of thè 
mutant camels. Jammin', Matrix, Bai attack a Ut. 25000 cadau¬ 
no più spese contrassegno. Lorenzo Fontani - Via Cavour. 33 - 
53100 Siena - Tel. 0577/284229 _ 

Per C64 vendo, cambio programmi di ogni tipo. Vasta gamma 
ottimi prezzi. Telefonare. Brunella Cimadomo - Via De Falco. 14 

- 80136 Napoli - Tel. 081/219123 

Cerco programmi utility e games per CBM 64 Dispongo vasta 
scelta di software. Scrivere o telefonare preferibilmente ore 20. 
Massimo Zah - Via F. Baracca. 4/45 - 16035 Rapallo (GE) - Tel. 
0185/61355 _ 

Cambio, vendo per Commodore 64 circa 400 programmi. Ri¬ 
chiedere lista a: Claudio Barchesi - Via S. Martino. 10 - 60035 
Jesi (AN) - Tel. 0731/3347 

CBM 64 user vende 3 programmi per lo sviluppo sia ridotto che 
integrale dei sitemi per il totocalcio. Telefonare Giorgio Primi¬ 
ceri - Via Sauro, 87 - 73100 Lecce - Tel. 0832/45344 

Vendo, cambio per VIC 20 i migliori programmi in L.M e BASIC, 
sopratutto giochi di ottima qualità. Anche Utilities ottimi e inediti. 
Scrivete per ricevere la lista gratuita, rispondo a tutti. Federico 
Guerrieri - Via Foscolo. 14 - 50124 Firenze - Tel. 055/700635 

Cambio, vendo software per Commodore 64. Centinaia di pro¬ 
grammi: The last one, Petspeed, Omnicalc. Easy Script. Pascal. 
BASM, FORTH. velocizzatori di nastro. 80 colonne e tanti ga¬ 
mes. Richiedere lista a. Mauro Talà - Via Roma. 87 - 00043 
Ciampino (Roma) - Tel. 6115249 

Per Commodore 64 dispongo di centinaia di programmi tra i 
quali KMM Pascal - FORTH - The last one - BASM - Easy Script 

- Soccer - Pooyan - Condomio - Magazzino - listati. Per infor¬ 
mazioni telefonare ore 14-16 o dopo le 20. Cesare Cantarmi - 
Via Luigi Rava. 33 - 00249 Roma - Tel. 06/526875 

Cambio e vendo programmi per C64 di ogni genere. Dispongo 
anche di Turbotape che accelera di 10 volte il tempo di regi¬ 
strazione e di lettura su cassetta a Lit. 20000. Programmi su 
disco o su cassetta. Fabrizio Ganem - Via Zambelli. 32 00152 
Roma - Tel. 06/5376138 

Cambio interessante software CBM 64. Giulio Cherubini - Via 
Filippini, 47 • 89100 Reggio Calabria - Tel 0865/330839 

Cambio, vendo programmi gestionali per 3032 4032. Cerco 
collaboratori per acquisto collettivo riviste straniere Commo¬ 
dore (solo PET). Massima serietà, dispongo fomtissimo softwa¬ 
re 3032 4032. Angelo Bardi - Via Bonomi, 28 - 29100 Castel ve¬ 
tro (PC) - Tel.0523/823179 (abitazione) 0523/823619 (lavoro) 

Cambio più di 600 programmi (videogiochi, gestionali, utility, 
musicali) per Commodore 64. Invio elenco completo a chiun¬ 
que lo richieda Luciano Cuneo - Via E Lepido, 46 - 00175 
Roma - Tel. 06/7491542 


Ho i migliori programmi per il Commodore 64: giochi di utilità, 
contabilità. Se desiderate scambiarli il mio indirizzo è: Santoro 
Giuseppe - Viale Augusto - 80125 Napoli - Tel. 081/619728 

Vendo Commodore 3032. registratore C2N più stampante 3022 
con software ingegneria civile e termotecnica. Prezzo trattabi¬ 
le. E' possibile richiedere il solo hardware a partire da Lit. 
2000000 trattabili. Clelio Pagnanelli - Via Fanfulla da Lodi. 22 - 
63037 Porto d'Ascoli - Tel. 658210 

Cambio o vendo programmi per VIC 20 di qualsiasi tipo. Dis¬ 
pongo inoltre di ottimo programma di word processing con 
interessanti caratteristiche che vendo a baso prezzo. Scrivere 
o telefonare a Maurizio Prandoni - Via Sauro. 25 - 20010 San 
Giorgio su Legnano (MI) - Tel. 0331 /401856 

Vendo sintetizzatore vocale per Commodore 64 su disk o cas¬ 
setta. Si accettano scambi. Stefano Morelli - Via Cadorna. 5 - 
20014 Nerviano (MI) - Tel 0331/587904 

Per VIC 20 vendo cassette con otto programmi di videogiochi a 
sole Lit. 15000 ciascuna. Chi fosse interessato scriva o telefoni. 
Dispongo anche di altri programmi. Katia Corfini - Via Tremola. 

11 - 55044 Tonpano M di Pietrasanta (LU) - Tel. 0584/23930 

Vendo, cambio programmi per Commodore 64 Richiedere 
elenco. Renato Cason - Via Zattieri. 12 - 32014 Ponte nelle Alpi 
(BL) - Tel. 0437/99429 

Vendo o cambio software di tutti i tipi: gestionali, utility e molti 
giochi con possessori di Commodore 64. Angelo Settembrini - 
Via Cassanese, 194 - 20090 Segrate - Tel. 2136514 (dalle 17.30 
in poi) 

Cambio software per CBM 64 possibilmente su disco. Dispon¬ 
go di oltre 250 programmi tra cui più di 100 giochi originali e 
moltissime utility con istruzioni. Cerco riviste americane sul C 

64 Maurizio Procaccini - Via Carelli. 59-62010 Mogliano(MC) 

- Tel. 0733/556963 

CBM 64 scambio vendo a Lit. 10000 cadauno i migliori pro¬ 
grammi; telefonare o scrivere a: Stefano Gianmtelli - Via Delle 
Caravelle. 27 - 06085 Perugia - Tel. 075/752536 

Vendo Commodore VIC 20 più registratore più espansione 
8Kbyte RAM più casetta per 40 colonne più giochi Othello. 
Invaders. ecc. Il tutto imballato a sole Lit. 500000 trattabili. 
Walter Gasperetti - Via Dei Marsi. 58 - 00185 Roma Tel. 
06/659706 4955171_ 

CBM 64 dispongo programmi giochi, utility e manuali di ogni 
tipo in inglese e tradotti in italiano. Invio catalogo a richiesta. 
Marcello Cesi - Via Magliana Nuova. 178 se. B/22 - 00146 
Roma - Tel. 06/5266009_ 

Commodore 64 - cerco programmi di vario genere sia su 
cassetta che su floppy Telefonare dopo le 20. Bruno Haver - 
Viale Toscana. 17 - 20136 Milano - tei. 02/580053 

Desidero corrispondere con possessori di Commodore 64 per 
consigli e scambio programmi. Antonino Riggio - Via Esseneto. 

65 - 92100 Agrigento - Tel. 0922/27255 

Cambio, vendo programmi per Commodore 64 (oltre 500) sia 
singolarmente che in pacchetti già stabiliti, prezzi veramente 
bassi. Provare per credere. Fabrizio Girelli - Via della Ginestra. | 
1 - 10027 Testona (TO) - Tel. 011/645650 

Commodore 64 - cerco programmi su cassetta giochi e utility. 
Inviare lista con relativi prezzi e modalità di pagamento. Franco 
Papotto - Viale Italia, 37 - 34073 Grado (GO) - Tel. 0431/83177 

Posseggo interessante software per il Commodore 64! Se vi 
interessa cambiare il vostro software con il mio. inviatemi la 
vostra lista o telefonatemi ore pasti. Maurizio Rossi - Piazza 
Aspromonte, 43 - 20100 Milano - Tel. 02/2717294 

Sono un nuovo utente del CBM 64, desidererei acquistare 
listati e cassette riguardanti: giochi, statistica e grafica; assicu¬ 
ro risposta. Inviare liste e prezzi a: Adriano Bochese - Via G. 
Marconi. 6 - 37050 Belfiore D'Adige (VR) - Tel. 045/616558 

Cambio programmi di ogni genere per Commodore 64 Spedi¬ 
temi la cassetta con i vostri, io la rispedirò con incisi i miei. 
Datemi la vostra preferenza sui programmi che desiderate. 
Attilio Pansini - Via S. Francesco d'Assisi, 16 - 70122 Bari - Tel 
080/217996_ 

Scambio software per Commodore 64, preferibilmente su dis¬ 
chetto, offro bellissimi giochi e utility. Roberto Lanzone - Via 
Archimede, 41 - 20129 Milano - Tel. 02/715494 

Scambio, vendo, compro software per C64. Priorità ad even¬ 
tuali novità dagli USA. Richiedo vostra lista in cambio della mia: 
programmi, utilies, giochi originali a prezzi scontatissimi. 
Giampiero Nadali - Via Pomposa, 33 - 44100 Ferrara 

Vendo, cambio programmi di giochi per Commodore 64 Scri¬ 
vere o telefonare a: Molino Massimiliano - Corso Salvemini, 53 

- 10095 Grugliasco (TO) - Tel. 011/306185 

Se vi interessano programmi per il vostro Commodore 64 io 
vendo e cambio il mio software. Spedite lista o telefonatemi 
dalle ore 14.30 alle 16.30 Valerio Ferri - Via S. Abbondio. 53 - 
20142 Milano - Tel. 02/8466030 

Vendo CBM 64 più Datacassette C2N, manuale in italiano, 
completa documentazione tecnica, tantissimi listati. Fabrizio 
Bestetti - Via Verdi. 6 - 24040 Canonica d'Adda - Telefonare ore 
ufficio allo 035/883107 ore pasti allo 02/9097650 

Vendo a pochissimo oppure cambio programmi per CBM 64: 
Pascal grafico, sintetizzatore vocale, The last one, Petspeed. 
FORTH. Simon's BASIC ecc. Giochi a tonnellate! Carlo Borreo - 
Via Berio, 34 - 18100 Imperia - Tel 0183/21833 

Vendo per VIC 20 inespanso serie di 22 giochi tutti registrati su 
cassetta. Il tutto per Lit. 50000. Massimo Darone - Viale Stra¬ 
sburgo. 341 - 90100 Palermo - Tel. 091/514917 

Cerco tastiera Commodore 64 a prezzo ragionevole e regalo 
circa 60 programmi di giochi a chi acquista il mio VIC 20. Aldo 
De Giorgi - Piazza Mazzini, 18 - 17025 Loano (SV) - TEI. 
019/670593 668265 


Vendo, cambio per VIC 20 espanso e non e per CBM 64 8 
programmi di giochi (su cassetta o disco). Telefonare al matti¬ 
no, dalle 9 alle 12 allo 0444/44549 oppure ai pomeriggio alle 
18.30 allo 0444/562136. Bruno Vit - Via E. Filiberto di Savoia, 
102 - 36100 Vicenza 

Vendo C64 mal usato causa doppio regalo. Offro in omaggio 5 
super games (Hunch back, The hobbit. Repton, Grand master, 
Pii stop) il cui valore commerciale supera le Lit. 300000. Telefo¬ 
nare ore pasti. Mauro De Vita - Via Lodovico il Moro. 57 - 20143 
Milano - Tel. 02/472853 

Vendesi 20 programmi su cassetta o disco per VIC 20 a Lit. 
10000 Ampia scelta (300 programmi); Tot 13. Arcadia, Pac man. 
Crazy kong. contabilità, Sci, agenda, corso di BASIC, ecc. Tele¬ 
fonare dalle 20 alle 22. Michele Melchionda - Via Tagitamento II 
traversa. 6 - 83100 Avellino - Tel. 0825/38091 

Vendo Commodore 64. registratore, stampante MPS 801, mo¬ 
nitor e programmi per mancato uso (2 mesi di vita). Telefonare 
ore pasti Giorgio Massazza - Via Foppa. 28 - c/o Giorgi - 
20100 Milano - Tel. 02/435757 

Vendo per Commodore 64 pacchetto soft che implementa 
l'autorun a qualunque programma su disco. Inviare lista per 
eventuali scambi. Gaspare Salvo - Via Omodei. 62 - 91025 
Marsala (TP) 

Cerco programma astrologia o posizione pianeti in cielo per 
C64. Vendo, cambio programmi giochi (calcio-auto) per C64 
Telefonare ore serali. Luigi Berto Ambrosi - Via della Sila, 27 - 
20100 Milano - Tel. 02/569868 

Vendo per C64 “Easy Script" originale con manuale completo 

a Lit. 40000 su disco - contrassegno più spese postali. Piero 
Meilano - Via Belvedere, 78 - 10028 Trofarello (TO) 

Vendo, cambio, compro programmi per VIC 20 inespanso. I 
miei li vendo a prezzi stracciatissimi: inviare vostre liste o 
chiedere la mia. Sergio Remondmo - Via De GAsperi, 3- 10015 
Ivrea (TO) 

Commodore 64 - cambio software su cassetta. Dospongo di 
utility, giochi (anche in italiano), e programmi didattici per le 
scuole elementari Dispongo del programma "PER’". Gianni 
Castellan - Via Cantelli, 5 - 43100 Parma - Tel. 32801 

Cerco floppy disk drive per Commodore CBM 64 a prezzo 
contenuto oppure cambio con fotocamera reflex accessoriata 
e enciclopedia per fotografare. Lorenzo Longana - Via Piave. 
20-7 - 17100 Savona - Tel. 019/25322 


Sinclair 


Cedo oltre 160 programmi per ZX Spectrum in cambio di una j 
stampante compatibile ed in buone condizioni. Maurizio Pam- | 
cucci - Via Marconi. 32 - 56025 Pontedera (PI) - Tel. 
0507/212367 _ j 

Vendo, cambio programmi per ZX Spectrum 48/16 Kbyte. j 

Prezzi eccezionali (3000/4000 Lit.) con offerte cumulative. Ri- I 
chiedete catalogo con 200 titoli e inviate il vostro. Maurizio 
Panicucci - Via Marconi, 32 - 56025 Pontedera (PI) - Tel. 
0577/212367 

Vuoi un programma per Spectrum creato appositamente se¬ 
condo i tuoi desideri? Telefonami! E' un’ottima occasione per 
avere programmi esclusivi senza conoscere BASIC e L/M. 
Telefonare la sera. Marco Silvestri - Via Pasini, 18 - 20129 
Milano - Tel. 02/743782 

Vendo, cambio oltre 60 programmi per ZX Spectrum 16 o 48 
Kbyte a Lit. 5000 cad. Scrivetemi o telefonate per avere la lista. 
Offro ben 42 programmi inglesi nuovi a sole Lit. 100000. Giorgio 
Colombo - Via S. Carlo. 13 - 20035 Lissone (MI) - Tel. 
039/481308 

Attenzione! Offriamo a prezzi pazzeschi fantastici programmi 
per Spectrum 16/48 Kbyte e VIC 20 base ed espanso. Scrivete 
o telefonate per lista gratuita. Specificare il tipo di computer, 
Gerardo Ventura - Via Regina Elena. 82 - 65100 Pescara - Tel 
085/23375 930864 

Vendo eccezionale programma per ZX81. il Q SAVE. aumenta 
di 30 - 40 volte i tempi di caricamento, prezzo competitivo (Lit. 
10000), garanzia di funzionamento, non lasciatevelo scappare, 
telefonate o scrivete a: Aldo Farneti Via Boezio, 2 - 20145 
Milano - Tel. 02/313282 (ore pasti) 

Vendo software per Spectrum; cassetta 15 programmi. 16 
Kbyte. 1 scelta (potete sceglierli da voi tra i più belli del catalo¬ 
go). Un programma Lit. 5000 più spese catalogo Sconti per 
acquisto di più di un programma Antonio Pullano - Via A. 
Gramsci. 51 - 20017 Rho (MI) - Tel. 02/9311605 

Vendo cassetta con 12 programmi per ZX81 1 Kbyte (Slalom. 
Roulette russa. Master mind, 1 Kbyte ZX Chess, ecc ) Per 
scambio inviate vostra lista. Lit. 12000 comprese spese di spe¬ 
dizione. Fabio Confalonieri - Via Sicilia, 13 - 20038 Seregno 
(MI)-_ 

Possessori di Spectrum avete mai comprato programmi origi¬ 
nali a meno di 3000 lire l'uno? Scrivetemi, vi regalerò un listato 
che permette di duplicare tutti i programmi con o senza header 
Carmelo Greco - Via Castel Lentini. 57 - 96010Priolo(SR) - Tel. 
0931/768217_ 

Cambio o vendo ad un prezzo massimo di Lit. 7500 programmi 
per ZX Spectrum 16/48 Kbyte. Inviare propria lista. Marco 
Poletto - Via Fanes, 3 - Tel. 0471/971887 

Compro, cambio, vendo programmi per lo Spectrum, prezzi: un 
programma Lit. 5000, due programmi Lit. 7000, tre programmi 
Lit 9000. Alcuni titoli: V3D, 3D tank. 30 Combat zone. Black 
hole. Maziacs, Ani attack, Serpenti. Spetroids. ecc Giancarlo 
Nardoni - Via Garibaldi. 24 - 12074 Cortemilia 
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Vendo per Spectrum 16/48 Kbyte molti programmi originali e 
in L/M adatti ad ogni esigenza e a prezzi convenienti (Atic atac. 
Vu-3D. Chequered flag. Astromagic, Vu file. ecc). Listino gratis 
a richiesta. Claudio Veggiotti - Via Dentici, 12 - 27038 Robbio 
(PV) - Tel. 0384/60169 

Vendo per ZX Spectrum 16/48 Kbyte cassette con 7/8 giochi a 
Lit. 7000 oppure scambio 50 programmi con una ZX printer od 
un qualsiasi altro accessorio. Michele Giubertoni - Via Monte 
Cassino, 10 - 13048 Santhià (VC) - Tel. 0161/93114 

Vendo in blocco software per Spectrum a Lit. 60000. 16 Kbyte: 
Cookie. Transam, Spray. Horace goes skiing. Horace and thè 
spiders. Hungry Horace. Vufile, Firebird e altri. 48 Kbyte: Manie 
miner. Tunnel. Golf. Ext. Chequered flag. Flight simulation, Ti¬ 
me gate. Luca Ghisleni - Via Trento. 54 - 21012 Cassano 
Magnago - Tel. 0331/200374 

Vendo Sinclair ZX81 più 16 Kbyte RAM piu alimentatore più 
manuali (italiano e inglese) più cassette con vari programmi. Il 
tutto a sole Lit. 250000 trattabili. Dimenticavo: regalo il libro "66 
programmi per ZX81". Filippo De Filippo - Via Monte Zovetto - 
16145 Genova - Tel. 010/318953 

Vendo ZX81 più alimentatore più cavi di collegamento più 
espansione 32 Kbyte più manuale italiano e inglese più libro 
"66 programmi con lo ZX81" e 4 giochi (Zuc - Sabotage - 
Mothership e cassetta con vari giochi)m tutto a Lit. 320000 
trattabili. Franco Cristini - Via Coghetti. 5 - 24100 Bergamo - 
Tel 035/253313 


AAA Affarone - Offresi stampante ZX printer Sinclair a solo 
135000 Lit.. nuova mai usata ancora imballata. Affrettatevi! Te¬ 
lefonare ore serali per spiegazioni e accordi. Filippo Astone - 
Via Servais. 200/e/3 - 10146 Torino - 713153 
Cerco possessori ZX Spectrum per scambio programmi 16/48 
Kbyte. Se interessati inviatemi la vostra lista o richiedete la mia 
scrivendo o telefonando. Liviano Vitali - Via Firenze. 29/3 - 
41035 Massa Fmalese (MO) - Tel. 0535/99700 


Vendo/cambio programmi perZX Spectrum. Dispongo circa di 
400 titoli in continuo aumento. Inviate la vostra lista e vi mande¬ 
rò la mia. Vendo ZX Printer Lit. 70000 piùspese postali Eraldo 
Taioli - Via F. Braganti. 8 - 47100 Forlì - Tel. 0543/65533 

Vendo personal computer ZX81 più 16 Kbyte più cavetti più 
giochi (Space raiders. Dama cinese. Attacco lunare. Disegni, 
ecc.). il tutto a Lit. 215000 trattabili. Telefonare ore serali. Marco 
Tarchini - Via Padula. 2 - 80123 Napoli - Tel. 081/7696781 

Per ZX Spectrum 16 e 48 Kbyte, vendo a sole Lit. 10000 casset¬ 
te con 6 programmi a scelta. Inoltre cerco stampante per Spec¬ 
trum in cambio di oltre 150 programmmi. Richiedere elenco 
gratuito a. Davide Di Dio - Via Carlo Alberto. 46 80045 Pompei 
(NA) - Tel. 081/8635055 

Cerco qualsiasi genere di programma, informazioni, libri, ecc. 
sullo ZX Spectrum 48 Kbyte. Scrivere a: Francesco Rea - Via 
Carlo Sforza. 10 - 54031 Avenza (MS) - Tel. 57087 

Compro, vendo, cambio software per ZX Spectrum 16/48 
Kbyte. Inviare liste e proposte. Risposta assicurata. Dario Alovi- 
sio - Via De Gasperi, 32 - 10129 Torino - Tel. 011/502216 
Vendo tastiera esterna professionale per ZX81 a Lit. 20000. 
Inoltre vendo in blocco tre libri (“Guida allo ZX81" - "Giocare 
con il BASIC" - "50 esercizi in BASIC") nuovissimi. Gianni 
Arcieri - Via Nazionale, 168 - 64020 Ripattoni (TE) 

Se possiedi uno Spectrum acquistato all’estero e non sai dove 
ripararlo rivolgiti a me: pagamento 85000 lire fisse. Assoluta 
garanzia. Dante Vialetto - Via Beltrame, 9- 21057Olgiate Olona 
(VA) - Tel. 0331/638521 

Vendo o cambio vasta raccolta di programmi per lo ZX Spec¬ 
trum. Invio del listato gratuito. Zeno Francalaci - Via Manzoni. 
15 - 30027 San Dona di Piave (VE) - Tel. 0421/42504 

Per ZX Spectrum. cambio programmi. Oltre 200 titoli a disposi¬ 
zione. Scrivere o telefonare per scambio elenchi. Richiedesi 
massima serietà e disponibilità. Cerco tastiera Kempston-Dk 
Tronics prezzo modico. Nazareno Candiano - Viale Italia. 63/c 
- 98100 Messina - Tel. 090/717797 

Vendo ZX81 32 Kbyte RAM. tastiera premente, alimentatore, 
guida allo ZX81, manuale 66 programmi. Il tutto a Lit. 250000. 
Telefonare ore pasti a: Antonio Salerno - Largo Cartesio. 1 - 
00137 Roma - Tel. 825813 

Vendo ZX81 16 Kbyte più due manuali più cavetti più 2 cassette 
con circa 60 programmi più alimentatore 0.7 A. Il tuttn a Lit. 
1900^9 trattabili. Telefonare ore pasti. Gianluca Armei i - Via 
Trento, 29 - 60015 Falconara Marittima (AN) - Tel. 917 0375 


Per Z'/ Spectrum 48Kbyte vendo a Lit. 13000 (in contrassegno) 
programma TOT013 che permette sia la riduzione e/o il condi¬ 
zionamento di qualunque sistema, sia il calcolo statistico del 
pronostico con relativo sviluppo colonnare. Dario Durante - Via 
Meucci. 22 - 64022 Giulianova (TE) 

Vendo Sinclair ZX81 completo piu espansione 16 Kbyte più 
manuale italiano e numerosi giochi su cassetta e listato. Tutto 
nuovo il tutto a Lit. 200000 trattabili. Fabio Losacco - 50122 
Firenze - Tel. 055/240391 

Vendo programmi per ZX Spectrum nelle versioni 16/48 Kbyte 
a Lit. 6000 su nastri, a Lit. 300 su listati. Possiedo molti program¬ 
mi come il Tris, conto corrente, tiro alla fune ecc. Scrivere o 
telefonare a: Massimiliano Capitò - Piazzetta Municipio. 9 - 
89014 Polistena (RC) - Tel 0966/931669 

Cambio programmi per Spectrum 16/48 Kbyte. Vendo conteni¬ 
tore per Spectrum e tutte le periferiche, fino a 6 drive, uscita su 
pannello post., interruttori (con chiave), ventola di raffredda¬ 
mento (Lit. 115000). Daniele Antonio lavarone - Via Torino. 9 - 
81022 Casagione (CE) - Tel. 0823/468607 

Vendo ZX81 16 Kbyte RAM completo di cavetti per televisore e 
registratore, manuale in italiano e inglese, libro "66 programmi 
per ZX81". imballaggio modificato per introduzione RAM II 
tutto a Lit. 120000. Alessandro Pecci - Via Salistn, 13 - 00147 
Roma - Tel. 06/5139257 


Texas 

Vendo software altamente professionale per sistema a dischi e 
nastro TI99/4A, i programmi sono realizzati in BASIC esteso e 
sono velocissimi in fase di manipolazione dati, sono disponibili 
oltre 100 programmi. Carmine De St. sio - Via Monte Rosa, 
i.s 18 - 80144 Secondigliene (NA) - Tel. 081/7553577 

Texas TI99/4A. Cerco software di tecnica commerciale, ragio¬ 
neria. fisica nucleare, matematica statistica, ricerca operativa, 
funzioni e relativo "metodo del simplesso". Telefonare ore se¬ 
rali. Ivan Sandrini - Via Interna. 45 - 25100 Brescia - Tel 
030/305841 

Vendo TI99/4A completo di manuali, alimentatore ecc. più 
loysticks più cavo per 2 registratori più 3 giochi su cartridgepiù 
25 cassette di programmi a Lit 25000. Alberto Anzola - Via 
Baroni. 3 - 20075 Lodi (MI) - Tel. 0371/53994 

Vendesi per TI99/4A cassetta con 7 bellissimi programmi gio¬ 
co e non tra i quali: Pac-man, Ufo. Catacombe a Lit. 9000. 
Scrivere a : Gabriele Pollacchi - Via Mazzini. 116 - 40138 
Bologna - Tel. 051 /392960 

Cerco con urgenza per TI99 sistema di controllo dischi e cavo 
per registratore o comunque indirizzi utili per poterli recupera¬ 
re. Per favore, sbrigatevi, sono disperato! Dario Paganini - Via 
Biagio Bellotti. 24 - 21052 Busto Arsizio (VA) Tel. abitazione 
627093 ufficio 229692 

Vendo per TI99/4A listato programma bioritmi con rappresen¬ 
tazione grafica dei risultati a Lit. 10000 spedizione compresa. 
Richiedetelo a: Giorgio Bonafini - Via degli Scaligeri. 29 - 37012 
Bussolengo (VR) - 

Vendo TI99/4A più alimentatore piu collegamento TV più joy¬ 
stick più modulo extended BASIC più 8 moduli SSS più cavo 
interfaccia registratore più una cinquantina di giochi più 4 libri 
per Texas esteri II tutto a Lit 690000. Dario Galbiati - Via 
Fleming. 8A - 20059 Vimercate - Tel. 681042 

Vendo causa passaggio a sistema superiore TI99/4A piu ali- 
mentore più modulatore più TI extended BASIC più modulo 
SSS "Alpiner" più manuali originali più joystick più cassette 
programmi (minuscole, def caratteri, hires. ecc). Tutto con 
imballi a Lit. 350000. Sergio De Santis - C.so Ovidio. 225 - 
67039 Sulmona (AQ) - Tel. 0864/53056 

Vendo per T199 circa 40 programmi (giochi) su cassetta a 
prezzi speciali. Es. Master mind Lit. 3000, Poker Lit. 4000. Tron 
Lit. 4000. Car race 3D . ecc. Roberto Zerlotto - Via Piave. 59 - 
37036 S. Martino B.A (VR) - Tel. 991874 

Vendo Texas TI99/4A più cavi di collegamento TV registratore 
più alimentatore più manuale istruzioni più due cassette giochi 
(parsec, alpinista) più numerosi programmi in BASIC tutto im¬ 
ballato a ottimo prezzo. Marco Costantino - Via Trento, 63 - 
38086 Pinzolo - Tel. 0465/51610 

Vendo per TI99/4A in TI - BASIC su cassetta, programma 13 
Kbyte “Gestione stipendi” con: memorizzazione buste paga, 
interrogazione e conteggio stipendio medio, somma stipendio- 
....(file su cassetta). Tot. Lit. 30000. Marco Pedroni - Via Mazzini. 
22 - 26100 Cremona - Tel. J372/37265 

Cerco modulo continuo "Adventure” per Texas TI 99/4A 
Prendo pure in considerazione altre offerte riguardanti gli ac¬ 
cessori (escluso registratore, extended BASIC e minimemory). 
Renzo Dal Bo - Via Degli Alpini, 4/4 - 31021 Mogliano Veneto - 
Tel. 041/4518'-' 

Vendo fantastici giochi per TI 99/4A. Sia in BASIC che in 
extended. Compro inoltre modulo minimemory o manuale As¬ 
sembler. Richiedere lista gratuita a: Andrea Barbieri - Via Livor¬ 
no. 12 /A - 35100 Padova 

Vendo per TI 99/4A cassetta con cinque programmi originali. 

giochi eccezionali, TI BASIC a solo Lit. 10000. Telefonare per 
informazioni. Vincenzo Manarolla - C.so Grosseto. 243- 10100 
Torino - Tel. 011/257494 

Vencj TI99/4A più alimentatore più collegamento TV più cavo 
interfaccia registratore più modulo scacchi più modulo gestio¬ 
ne dati personali a sole Lit. 320000. Regalo due libri inerenti ad 
esso. Carmine Savignano - Via Amabile, 42 - 83100 Avellino - 
Tel 31032 


Ver.do. per possessori TI 99/4A, modulo SSS Tl-Extended 
BASIC con relativo manuale a Lit. 100000. Giorgio Ponti - Via 
San Giulio. 25 - 21053 Castellanza (VA) - Tel. 0331/501905 


Vendo Texas TI99/4A piu cavo per registratore piu manuale 
piu due libri di programmi su casset.e più joystick Spectravideo 
tutto usato tre mesi, con imballaggio tutto a Lit 370000 Telefo¬ 
nare o scrivere Alessandro Dente - Via Tanagro. 12 - 84100 
Salerno - Tel. 332219 


Vendo TI99/4A più collegamenti TV e registratore piu joysticK 
a Ut. 460000. regalo inoltre il regislratore originale Texas più 
una decina di programmi in BASIC tutto ancora in regolare 
garanzia. Antonio Spezia - Via Tomolo. t3- 15057 Tortona (AL) 
- Tel. 0131/862269 

Per TI99/4A cambio programmi di matematica - giocm in TI - 
BASIC Giacomo Mazzone - Via Manin. 44 - 70037 Ruvo di 
Puglia (BA) 

Cerco o cambio programmi, soprattutto giochi per TI99/4A 
Tratto solo con Lombardia e cerco programmi caricati solo su 
cassetta. Ano Salcini - Via Verga. 135 - 20092 Cmisello B (MI) - 
Tel 02/6187923 

Vendo TI99/4A con modulatore PAL più cavo registratore pu 
registratore piu cassetta programmi vita 7 mesi piu manuale Lit 
370000 per passaggio a sistema superiore. Telefonare tutti i 
pomeriggi tranne martedì e giovedì Domenico Rubertp - Via S. 
Anna. 840-41018 San Cesario S.P (MO) - Tel. 923953 
Vendo drive Shougart mod. 800-Z causa mancata consegna a 
Lit. 800000 trattabili e cambio con TI99/4A a prezzo ragionevo¬ 
le Offro Lit. 120000. Carlo Alberto Berlocchi - Via Nazano 
Sauro, 12 - 20090 Cesano Boscone (MI) - Tel. 4585420 

Purché vera occasione acquisterei mini-memory, sintetizzato¬ 
re, emulatore per TI99/4A Ignazio Fanni - Via Roma 41 - 
09039 Villacidro (CA) - Tel 932461 

Vendo, cambio con stamr nte o altri accessori per TI99/4A 
consol Atan Video giochi :mpleto di accessori e 5 cassette 
giochi. Telefonare al sabi’ oppure domenica mattina. Carlo 
Dallo - Via Vaglio. 3 - 28077 Prato Sesia (NO) - Tel. 
0163/850229 

Vendo Texa9 TI99/4A come nuovo, ancora in garanzia con 
cavi di collegamento per TV color e per registratore, imballi 
originali, più alcuni programmi in BASIC Tutto a Lit. 200000. 
Alessandro Gelli - Via Pisani. 13 - 20100 Milano - Tel. 
02/6570497 

Cerco per computer 99/4A modulo extender BASIC con ma¬ 
nuale. Vendo cassetta con numerosi programmi di giochi a Lit. 
10000. Nicola Mazzeo - Via Libertà. 336 - 80055 Portici (NA) - 
Tel. 081/7751791 

Vendo per TI 99/4A cassetta con 29 programmi in BASIC a lire 
45000 causa rottura computer Telefonare per informazioni. 
Maurizio Mosole - Via Pergolesi. 10 - 10154 Torino - Tel. 
01/20126 

Vendo Texas TI99/4 completo di manuali, registratore, modulo 
SSS. extended BASIC. Tt invaders. corso su cassetta coppia 
joysticks. tre libri sul TI. cassetta giochi, a Lit 400000. Roberto 
Ciandefla - Via G. Jervis. 5 - 50145 Firenze - Tel. 055/453216 

Cerco per TI 99/4A RS232 più exp. 32 Kbyte più minimemory 
anche singolarmente Mauro Mauri - Via S. Avendrace. 112- 
09100 Cagliari - Tel 070/283558 

Cambio per TI99/4A programmi sia in BASIC che in extended 
su cassetta. Inviate la vostra lista e io farò lo stesso. Compro 
urgentemente modulo minimemory Garantisco risposte veloci 
per tutti. Michele Somma - Via E. Corridoni, 21 - 70032 Bitonto 
(BA) - Tel. 080/617135 

Cambio/vendo/acquisto programmi per TI 99/4A di ogni ge¬ 
nere in BASIC ed extended BASIC. Inviate lista vostre disponi¬ 
bilità. Rispondo a tutti. Andrea Barbi - Via Circondane Sud. 1 7 - 
41013 Castelfranco Emilia (MO) 

Vendo compact computer Texas CC40 causa passaggio altro 
sistema per Ut. 320000 compreso manuale. Prezzo non tratta¬ 
bile. Luigi Anglam - Via Costanzo Albasim, 6- 0155 Roma - Tel. 
06/2270681 

Vendo 20 programmi vari su cassetta per TI99/4A a solo Lit 
20000 Vendita contrassegno, chiedere lista Inoltre cambio 
programmi per TI99/4A. Sergio Formato - Via Nazionale. 233 - 
83031 Ariano Irpino (AV) - Tel. 0825/871194 

Vendo come nuovo, a Lit. 300000 trattabili TI99/4A (3 mesi di 
vita) completo di imballo, accessori e cavi vari più due libri 
"Imparare il BASIC con il TI99" e "35 programmi in TI BASIC" 
più molto software. Sergio Formato - Via Nazionale. 233 - 
83031 Ariano Irpino (AV) - Tel 0825/871194 

Vendo ottimi programmi per TI99/4A quasi tutti mediti. Garanti¬ 
sco a chiunque la massima serietà. Per informazioni scrivere a: 
Maurizio Coluccelli - Via Don Gnocchi. 2 - 40033 Casalecchio 
di Reno (BO) - Tel. 051 /578573 


Varie 

Vendo programmi su disco per computer Atari e stampante 
termica Atari 822. Fabrizio Branca - Via S Brigida. 51 - 80133 
Napoli - Tel 081/320284 

Ancora sigillata nell’Imballo originale vendo cartridge Atari 
"Spac •'aders" (da uno a due giocatori) a Lit. 45000. Fulvio 
Gelato a G. Serra. 24 - 80132 Napoli - Tel. 081/421185 

V „rl 400 più floppy 810 più DOSI più DOS2 più music 

c ' più de re Atari più hardware manual piu your Atari 

ce causa passaggio ad altro sistema. Il tutto per Lit 

IL trattabili. Vittorio Moretti - Via Leonardo, 69 - 41049 
Si. ; (MO) - Tel. 059/803621 

Ven BBC modello B. Inoltre cambio /vendo 120 giochi in LM 
per C64 Per qualsiasi informazione telefonate o scrivete a: 
David Peronace - Via Lucania. 25 - 04100 Latina - Tel. 
0773/42812 
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Vendo bellissimi programmi di giochi di vano tipo come Frog- 
ger. Pac-man, Bonzo, Amok e molti altri giochi (in tutto 30) su 
cassetta a Lit. 30000 Marco Ricci- Via La Madonna della Vitto¬ 
ria. 76 - 66100 Chieti - Tel. 0871/504223 

Vendo computer GP-T10 48 Kbyte ram e 1 Mbyte su disco a Lit, 
2800000 trattabili, completo di sistema operativo CP/M e 60 
dischi da 8" con molti programmi e linguaggi (Cobol. FOR¬ 
TRAN, Pascal. Dbase II. Datastar). - Graziano Ceccotti - Via 
Livornese Est, 124 - 56030 Perignano (PI) - Tel. 0587/616046 

Vendo base Atari CX2600 a Lit. 1800000 più 1 cassetta (Com¬ 
bat). In più dispongo di altre 7 cassette Atari: Dig Dag. Canga- 
roo, Pittali. Space invaders, Bereerk, Pac-man, Defender. San¬ 
dro Perini - Via Caproni. 1 - Milano - Tel. 02/685415 

Cerco amico/a In provincia di Treviso che mi lasci usare qual¬ 
che ora al giorno tl suo calcolatore. In cambio offro collabora¬ 
zione. Lory Danieli - V ie Vittorio Veneto. 351 III - 31100 Treviso 
- Tel. 0422/62129 

Vendo registratore Sharp CE 152 adatto ad ogni computer più 
interfaccia Viscount a componenti selezionati adatta per VIC 20 
e Commodore 64, due settimane di vita, tutto a Lit 100000 
Mario Lener - Via Paolo Bentivoglio. 30 - 00165 Roma - Tel. 
06/6374954 

Vendo come nuovo elaboratore HP 9816-S con unità dischi 
HP-9121. Luciano De Zuani - Via F.lli Maioni. 8 - 28021 Borgo- 
manero (NO) - Tel. 844439 


Vendo listati di programmi per VIC 20. C64. Sinclair ZX81. 
Apple e altri da Lit. 1500 in su. Vendo inoltre perC64 cartridge 
Advenger e Kick tan - Stefano Porrone - Via G. Da Salò. 14 - 
20124 Milano - Tel. 02/6071725 

Cerco "Personal Software” di Marzo 84 Vendo nr. 1-2 più 
copertina 1 volume di "BASIC" più nr. 1 -2-3 di "Il mio compu¬ 
ter". Sono tutti e due nuovissimi. Alessio Ciaverdin -Via Cassia. 
1280 - 00189 Roma - Tel 06/3765662 
Compatibili Inteilevislon vendo: box. calcio, battaglia navale, 
sci. tron 1. space armada. starstrike, tennis, utopia, pitfallm 
dracula. safecracker. tutto in ottimo stato a metà del prezzo di 
listino Fabio Cerfugli - Via Sicilia. 120 - 91019 Velderice (TP) - 
Tel. 0923/833474 

Cerco possessori Z80 mlcro design con CP/M 2.25 per scam¬ 
bio programmi e esperienze, senza scopo di lucro. Giuseppe 
Giraudo - Casella Postale 9 - 12011 Borgo S. Dalmazzo (CN) 

Vendo a Lit. 1 00000 autodidattico BASIC - Locksmith 5.0 - 
Apple writer e altri a prezzi inferiori. Scrivere specificando il 
numero di telefono. Giorgio Bassi - Via Nazario Sauro. 50 - Rolo 
(RE) 


Si cede al miglior offerente plofter Watanable Diglplot WX 46 
con garanzia Disponibile anche con interfaccia per MZ80-B 
Sharp. Claudio Lega - Via Zuffe. 7 - 48018 Faenza (RA) - Tel 
0546/29520_ 

Vendo Atarl 800 48 Kbyte completo di registratore usato po¬ 
chissimo. Il tutto a Lit. 770000. Regalo i programmi Scrivere a: 
Ermanno Ferrarmi - Via Monte Sabo-tino. 96 - 41100 Modena - 
Tel. 059/373926_ 

Vendo pubblicazione editoriale, versione enciclopedia, com¬ 
posta da 4 volumi interamente rilegati Titolo: "Scuola di elet¬ 
tronica" di Alberto Peruzzo Editore. Prezzo contenuto o cam¬ 
bio con SW per 64. Antonio Francavilla - Via Ravizza. 21 - 
20149 Milano - Tel. 02/460505 

Vendo Atari VCS 2600 più alimentatore più joystick più padle 
più cavi di collegamento più 7 cassette: Asteroids - Defender - 
Mazecraze - Combat - Air sea Battle - Street racers tutto con 
imballo originale a solo Lit. 450000. Mauro Rorato - Via dei tigli. 
2/A - 20090 Rodano (MI) - Tel. 9588000_ 

Cerco fotocopia datato gioco del calcio di "Personal Softwa¬ 
re" nr. 4. Ringrazio chi sarà cosi gentile da fornirmela, cambio 
programmi per PET CBM BASIC 40 sistema a cassetta. Scrive¬ 
re o telefonare. Antonio Di Gilio - Via Monte Cervino. 1 - 30030 
Favaro Veneto (VE) - Tel. 041/611259 

Vendo "Introduzione al BASIC” parte 1 con due cassette, 
manuale e scatola tutto originale come nuovo, mai usato a Lit. 
30000 Scrivere o telefonare tranne sabato e domenica ore 
20-22. Giovanni Cristiano - Via del Presidio, 1 - 84010 Badia di 
cava dei Tirreni - Tel. 089/466810 


Cerco per Osborne 1 copia su disco del CPM System e Word¬ 
star causa perdita a modico prezzo Giorgio Barroero - Via 
Lungoparco Gropallo. 3 - 16122 Genova - Tel. 010/893475 

Vendo Videopac Phillphs computer G7000 con 9 cassette a Lit. 
400000 trattabili. In alternativa permuto con Commodore VIC 
64, integrando differenza prezzo in contanti. Massimo Di Bella. 
Via Siena. 1 - 06034 Foligno (PG) - Tel. 0742/670576 

Cambio, vendo videogames originali Assembly (Jetpac. Tanx 
3d. PSSST) più giochi o Utilities in BASIC a Lit. 5000 con possi¬ 
bili sconti. Inoltre possiedo buone routines Assembly. Telefo¬ 
nare ore pasti per elenco. Sergio Ferrerò - Via Lombarda, 4 - 
10060 S Secondo di Pinedo (TO) - Tel. 0121/500893 

Vendo a metà prezzo DAI 75 Kbyte 129000 punti - 16 colori - 3 
canali musicali compatibile CPM - Videotel - Floppy 800 Kbyte 
- Libro ROM %)) pagine - riviste del DAI club - Pascal - Assem¬ 
bler - giochi in linguaggio macchina e tanti programmi. Marco 
Bulgarelli - Via Betti. 175 - 16035 Rapallo (GE) - Tel. 
0185/54864 _ 

Vendo numeri arretrati di ‘‘Personal software” dal nr. 1 al nr. 15 
a Lit. 60000 più spese postali. Vendo ZX81 1 Kbyte più manuale 
ecc. più tre libri sullo ZX81 più 5 nastri di programmi a Lit. 
120000. Angiolo Tavanti c/o Gianaroli - Via Felice Battaglia, 6 - 
40135 Bologna - Tel 051/436843 

Vendo a Lit. 18000 (escluse spese postali) cassetta di 7 pro¬ 
grammi TIBASIC d'ogm genere. Trattasi sopratutto di giochi. 
Cerco inoltre extended BASIC ad un prezzo trattabile sulle Lit. 
140000 Telefonare dalle 15 alle 17 escluso sabato e domenica 
oppure scrivere. Lorenzo Marsigli - V ie Martiri, 1/b - 40053 
Bazzano (BO) - Tel 051/831479 _ 

Un nuovo club di utenti VIC 20 sta per nascere a Napoli. 
Scriveteci, rispondiamo a tutti, subito e senza invio di franco¬ 
bolli Ciro Cacciapuoti - Via Napoli Parco Hawaiano - 80010 
Villaricca (NA) - Tel.8942383 


Eccezionale! Cambio Inteilevislon più 5 cassette (Poker, Foot¬ 
ball. Space hok. Tennis, Star strike) con ZX81 o con ZX Spec- 
trum. Telefonare ore pasti. Christian Disanto - Piazza Grandi. 2 
- 20135 Milano - Te l. 02/937044 _ 

HX-20 Userà Group Italia: si è costituito da Gennaio per scam¬ 
bio di notizie, di utility, hardware e software. Ulteriori informa¬ 
zioni: Francisci Renato - Via Dei Panfili. 108 - 00121 Roma - 
Tel 06/5694116 

Vendo letteratura e programmi per Compucolor II 16 Kbyte o 
permuto. Lorenzo Vescovo - Via Capodieci, 23 - 96100Siracu¬ 
sa - Tel. 0931/69803 

Vendo/cambio programmi per II "Sega SC 3000" Cassetta 
C46 con circa 20 titoli solo Lit. 20000 comprese spese spedizio¬ 
ne. Programmi, giochi matematica, grafica tridimensionale. Af¬ 
frettatevi! Carlo Ferrari - Via Merici. 90 - 00162 Roma - 
06/8316783 



'cervello 


mandare in tilt il vostro 

Rodnay Zaks 

PROIBITO! 

O come aver cura di un computer 


In quanti modi si può rovinare un computer, grande o 
personal che sia? L'autore di questo volume ne elenca 
molti: alcuni dovuti a sbadataggine, altri a troppa 
confidenza con il mezzo, altri ancora a scarsa 
conoscenza dei suoi meccanismi e della loro estrema 
vulnerabilità. C’è, anche, un'intera parte dedicata ai 
sabotaggi da calcolatore: furti, spionaggio 
industriale, distruzione delle informazioni... 

Insomma un libro curioso, ma prezioso, per 
vivere per anni, senza problemi, insieme al 
proprio amico 'cervello' elettronico. 

198 pagine. Lire 14.000 Codice 333 D 







































© UNA PUBBLICAZIONE 

DEL GRUPPO EDITORIALE JACKSON 



ANNO 3 N. 20 AGOSTO-SETTEMBRE 1984 

DIRETTORE RESPONSABILE: Giampietro Zanga 
CAPO REDATTORE: Lorenzo Barrile 
DIRETTORE TECNICO: Riccardo Paolillo 
GRAFICA E IMPAGINAZIONE: Renata Lavizzari 
SEGRETARIA DI REDAZIONE: Silvia Borgonovo 

REDAZIONE USA: Gabriella Martino, Sergio Meilo-Grand 
G.E.J. Publishing Group Ine. 

HANNO COLLABORATO A QUESTO NUMERO: 

M. Giacobazzi, U. Barzaghi, M. Morchio, 

G. Persiano, S. Guarinelli, M. Paolinelli, 

G. Gatti, C. Poma, I. Parbuono, 

S. De Monte, S. Borsani, A. Guida, 

A. Motta, M. Lenzi, M. Spero. 

UFFICIO ABBONAMENTI: Tel. 6880951 /2/3/4/S 

USA: G.E.J. Publishing Group, Ine. a Subsidiary of - 
Gruppo Editoriale Jackson 1307 S. Mary Avenue - 
94087 Sunnyvale (CA) Tel. (408) 7730103 - Telex: 49959972 

GRAN BRETAGNA: G.E.J. Publishing L.t.d. 187 Oxford Street 
London WIR1AJ Tel. (01) 4392931 - Telex: (051) 21248 

PUBBLICITÀ’: Concessionario per l’Italia e l’Estero 

Reina S.r.l. Via Washington, 50 - 20146 Milano 

Tel. (02) 4988066/7/8/9/060 (5 linee r.a.) Telex: 316213 REINAI 

PUBBLICITÀ' PER USA E CANADA: 

International Media Marketing 16704 Marquardt Avenue, 

P.O. Box 1217 Cerritos (CA) 90701 - (213) 926-9552 

FOTOCOMPOSIZIONE: LINEACOMP S.r.l. 

Via Rosellini, 12 - 20124 Milano 

STAMPA: Reweba - Brescia 

Concessionario esclusivo per la diffusione 

in Italia e all’Estero: SODIP - Via Zuretti, 25 - 20125 Milano 

AUTORIZZAZIONE ALLA PUBBLICAZIONE: 

Tribunale di Milano n. 69 del 20/2/1982 
Spedizione in abbonamento postale Gruppo 111/70 
Prezzo della rivista L. 4.000. Numero arretrato L. 8.000. 
Abbonamento annuo (10 numeri) L. 34.000; per l'Estero L. 51.000 

I versamenti vanno indirizzati a: Gruppo Editoriale Jackson 
Via Rosellini, 12 - 20124 Milano - mediante emissione 

di assegno bancario, cartolina vaglia o utilizzando 
il C/C postale numero 11666203. 

Per i cambi di indirizzo, indicare, oltre naturalmente al 
nuovo, anche l’indirizzo precedente, ed allegare alla 
comunicazione l'importo di L. 500, anche in francobolli. 

© 

TUTTI I DIRITTI DI RIPRODUZIONE O TRADUZIONE 
DEGLI ARTICOLI PUBBLICATI SONO RISERVATI 

II Gruppo Editoriale Jackson è iscritto nel registro Nazionale 
della stampa al n. 117 - Voi. 2 - Foglio 129 in data 17-8-1982 


GRUPPO EDITORIALE JACKSON S.r.l. 

DIREZIONE. REDAZIONE, AMMINISTRAZIONE: 

Via Rosellini. 12 - 20124 Milano - Telefoni: 68.80.951 Z2/3/4/5 

SEDE LEGALE: Via G. Pozzone, 5 - 20121 Milano 
DIREZIONE EDITORIALE: Giampietro Zanga e Paolo Reina 
COORDINAMENTO EDITORIALE: Daniele Comboni 
DIREZIONE AMMINISTRATIVA: Giuliano Di Chiano 
DIREZIONE DIVISIONE PERIODICI: Dafio Tiengo 

DIREZIONE DIVISIONE LIBRI 
E GRANDI OPERE: Roberto Pancaldi 






























































































C64 


IN EDICOLA 
IL SECONDO NUMERO 


SuperSinc e SuperVic & C64 sono idee 


EDITRICE 


Due Super Riviste 
da non perdere ! 












Fresche, 
Spiritose, 

Pratiche. 






